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FOREWORD 


This  report  was  prepared  in  the  Components  Branch  (APTC),  Turbine 
Engine  Division*  Air  Force  Aero  Propulsion  Laboratory,  Wrigfct-Patterson 
Air  Force  Base,  Ohio,  under  Project  3066,  “Gas  Turbine  Technology,”  Task 
306603,  “Advanced  Engine  Studies,”  with  Charles  E.  Bentzas  Project  Engineer. 

This  report  covers  work  conducted  within  the  Components  Branch  in  the 
time  period  between  July  1965  and  June  1968. 

This  technical  report  has  been  reviewed  and  is  approved. 


Chief,  Turbins  Engine  Division 

Air  Force  Aero  Propulsion  Laboratory 
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ABSTRACT 

This  report  describes  a  digital  computer  program  titled  CARPET.  CARPET 
is  a  computer  program  that  calculates  parametric  turbojet/turbofan  engine 
performance.  It  can  also  analyze  the  performance  of  a  specific  engine.  The 
program  is  written  in  Fortran  IV  language  and  was  designed  for  use  on  an 
IBM  7090  Digital  Computer.  Included  in  the  report  are  listings  of  the  com¬ 
plete  program,  various  sample  input  data,  and  the  corresponding  output. 
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SECTION  I 

GENERAL  DISCUSSION 

The  CARPET  Deck  is  a  computer  program  that  simulates  a  basic  param¬ 
etric  turbojet  or  turbofan.  It  can  also  be  used  to  analyze  the  performance  of 
a  specific  engine  at  discrete  operating  points  if  the  total  airflow  is  input  along 
with  the  component  characteristics  of  the  engine. 

This  program  is  written  in  FORTRAN  IV  and  requires  no  special  routines 
or  setups.  NAMELIST  Input  is  used  to  input  data  since  it  retains  input  values 
from  case  to  case  unless  specifically  changed  in  a  particular  data  case.  This 
eliminates  continuously  inputting  parameters  that  do  not  change  from  case  to 
case. 

Provisions  are  included  for  a  title  which  prints  at  the  top  of  each  page. 
The  output  format  prints  one  data  case  per  page  within  an  8  1/2  x  11  inch  area 
with  sufficient  room  for  margins. 

Since  this  program  is  not  a  component  balancing  program,  a  component 
performance  map  is  not  required. 
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SECTION  n 

HOW  TO  USE  CARPET 

Time  Estimate:  Load  Time  45  Seconds 

Run  Time  0.5  Seconds/Data  Case 

Line  Estimate:  55  Lines  Per  Data  Case 

NAMELIST  Input:  All  of  the  data  cards  must  start  in  Column  2  or  beyond. 
To  start  a  data  case,  punch  $INPUT  in  Columns  2-7,  then  skip  a  space  and 
continue  by  punching  the  input  parameter  names  and  the  value  you  wish  them 
to  be  equal  to.  Finish  that  data  case  by  punching  a  $  -  sign  immediately  following 
the  last  value  in  that  data  case.  The  program  then  executes  that  data  case  and 
comes  back  to  the  data  cards  for  the  next  case. 

The  advantage  of  this  input  technique  is  that  the  program 
will  use  values  from  the  preceding  point  unless  specifically  changed  in  the  data 
case  that  follows.  (See  Example  1,  Setup  of  CARPET  Deck.) 

Behind  the  last  data  ease  a  card  with  $E0F  punched  in 
Columns  1-4  must  be  inserted  to  end  the  run. 

Title  Card:  Provisions  have  been  included  to  read  a  title  card  which  is 

printed  at  the  top  of  each  output  printout.  To  read  a  titl8  card,  set  ITITLE  =  1 
in  the  NAMELIST  data  case  to  which  the  title  applies.  The  program  then  reads 
Columns  1  -  66  of  the  first  card  following  that  data  case  as  file  title.  Since  the 
program  automatically  sets  ITITLE  =  0  after  a  title  has  been  read,  ITITLE  has 
to  be  set  =  1  only  when  a  new  title  is  desired. 
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SECTION  m 

DISCUSSION  OF  ROUTINES 


CARPET:  This  is  the  main  program  and  contains  all  of  the  normal 

input  and  output  statements.  E  also  contains  all  of  the  logic  necessary  to  simu¬ 
late  a  basic  parametric  turbojet  or  turbo  fan.  Straight-through  programming  is 
used  which  makes  following  program  logic  quite  easy. 

Subroutine  required:  DSDRTV 


This  subroutine  is  set  up  to  run  “Design  Derivatives”  of  a  base  case. 
Basically,  this  routine  automatically  varies  designated  engine  input  param¬ 
eters  by  either  a  ±  percent  or  a  ±  increment,  hi  addition  to  doing  this  auto- 
atically,  this  routine  prints  a  subtitle  designating  the  base  case  and  eaeh  of  the 
derivative  cases  including  the  increment  and  percent  of  change  for  that  partic¬ 
ular  parameter.  Printed  at  the  bottom  of  the  output  are  the  ratios  SPC/(SCFBASE) 
■ind  FN/(FNbase). 


Data  setup  is  as  follows: 

a.  Sat  IDEL  =  1  in  the  base  ease. 

b.  Also  set  ITITLE  =  1  and  include  title  card  immediately  after  base  case 
if  desired. 

c.  Next  sequence  on  data  cards  the  parameters  desired  to  be  varied  in 
Col.  1-6,  the  type  of  variance  in  Col.  11  -  16  fpercent  change  -  PERCNT  or 
increment  change  -  DELTA),  and  die  value  of  the  variance  in  Col.  21  -  30 
(Note:  0.01  -  1%).  S  a  variation  in  only  one  direction  (+  or  -)  is  desired,  follow 
then  with  the  direction  indicator  in  Col.  31  -  36  (PLUS  or  MINUS). 

d.  After  the  last  parameter  varying  card,  a  card  must  follow  with  G00N 
punched'  in  Col.  1-4. 


NOTE:  The  parameters  to  be  varied  must  appear  in  the  name  common  PA  RAM. 

Successive  data  cases  will  be  run  with  the  same  design  derivatives  unless 
IDEL  is  set  =  0. 
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RAM: 

Routine  for  calculating  Mil.  Spec.  5008B  ram  recovery. 

Calling  sequence: 

CALL  RAM  (AM,  ETAR) 

AM  -  Fli^it  Mach  Number 
ETAR  -  Ram  Recovery 


C0MP: 

Routine  for  calculating  compressor  or  fan  exit  thermodynamic  conditions. 
Calling  sequence: 

CALL  COMP  (PR,  ETA,  PI,  TI,  SI,  HI,  P0,  T0,  S0,  H0,  IER) 

PR  -  Compressor  Pressure  Ratio 

ETA  -  Compressor  Adiabatic  Efficiency 

PI,  P0  -  Total  Pressures  Into  and  Out  of  Compressor 
(Units  In  Atmospheres) 

TI,  T0  -  Total  Temperatures  Into  and  Out  of  Compressor 

SI,  S0  -  Entropy 

HI,  H0  -  Enthalpy 

IER  -  Error  Indicator, 

0  =  No  Error 

1  =  Error  hi  Entropy  Balance 
Subroutines  Required:  THERM0,  PR0C0M. 
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C0MB: 

Routine  for  calculating  combustor  and  duct-burner  thermodynamic  exit 
conditions. 

Calling  sequence: 

CALL  COMB  (PL  10,  HL  ETA,  DPB,  P0,  H0,  S0,  FAR0,  HV) 


PI,  P0 

-  Combustor  Inlet  and  Exit  Total 

Pressures  (Units  In  Atmospheres) 

T0 

-  Combustor  Exit  Total  Temperature 

HI,  H0 

-  Enthalpy 

ETA 

-  Combustion  Efficiency  (i.e..  Applied 
to  Heating  Value  of  Fuel) 

DPB 

-  Total  Pressure  Drop  Across  Combustor 

S0 

-  Entropy  At  Combustion  Exit 

FAR0 

-  Combustor  Exit  Fuel  to  Air  Ratio 

HV 

-  Heating  Value  of  Fuel  (JP-4) 

Subroutines 

Required:  THERM0,  PR0C0M,  AFQUIR. 

TURB: 

Routine  for  calculating  turbine  thermodynamic  exit  conditions. 

Calling  sequence: 

CALL  TURB  (PL  HL  SI*  FARL  ETA.  DHTL  P0,  T0,  H0,  S0,  IER) 

PI,  P0  -  Turbine  Inlet  and  Exit  Total  Pressures 
(Units  In  Atmospheres) 
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HI,  H0  -  Enthalpy 

SI,  S0  -  Entropy 

FARI  -  Fuel  to  Air  Ratio  Into  Turbine 

ETA  -  Turbine  Adiabatic  Efficiency 

DHTI  -  Total  Enthalpy  Change  Across  Turbine 

Per  Pound  of  Mass  Flow  Into  Turbine 

T0  -  Turbine  Exit  Total  Temperature 

IER  -  Error  Indicator 

0  =  No  Error 

1  =  Error  hi  Entropy  Balance 
Subroutines  Required:  THERM0,  PR0C0M. 

ABFIRE: 

Routine  for  calculating  afterburner  thermodynamic  exit  conditions. 

Calling  sequence: 

CALL  ABFIRE  (PI,  T0 ,  HI,  FARI,  ETA,  DPB,  WGL  WFL  P0,  H0,  S0, 
FAR0,  WF,  WGT,  WFT,  HV) 

PL  P0  -  A/B  Inlet  and  Exit  Total  Pressures 
(Units  In  Atmospheres) 

T0  -  A/B  Exit  Total  Temperature 

HI,  H0  -  Enthalpy 

FARI,  FAR0  -  A/B  Inlet  and  Exit  Fuel  to  Air  Ratios 

ETA  -  A/B  Combustion  Efficiency  (i,e„ 

Applied  to  Heating  Value  of  Fuel) 

DPB  -  Total  Pressure  Drop  Across  Afterburner 
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WGI,  WGT 
WFI,  WF,  WFT 

S0 

HV 


-  A/B  falet  and  Exit  Mass  Flows 

-  Main  Combustor,  A/B,  and  Total 
Fuel  Flows  at  A/B  Station 

-  A/B  Exit  Entropy 

-  Heating  Value  of  Fuel  (JP-4) 


Subroutines  Required:  THERM0,  PR0C0M,  AFQUIR. 


N0Z: 


Routine  for  calculating  fully  expanded,  isentropic  nozzle  conditions, 
CALL  NOZ  (PL  PTI,  TTI,  ST  I,  FARL  TS0,  HS0) 


PI 

PTI 

TTI 
STI 
FARI 
TS0,  HS0 


-  Ambient  Pressure  to  Which  Mass 
Flow  Expands  (Units  In  Atmospheres) 

-  Total  Pressure  Into  Nozzle  (Units 
In  Atmospheres) 

-  Total  Temperature  Into  Nozzle 

-  Total  Entropy  Into  Nozzle 

-  Total  Fuel  to  Air  Ratio  Into  Nozzle 

-  Static  Temperature  and  Enthalpy 
Out  of  Nozzle 


Subroutines  Required:  THERM0,  PR0C0M. 


ATM0S: 

Routine  that  simulates  1962  U.S.  Standard  Atmosphere. 

See  program  listing  for  calling  sequence  and  definitions  of  parameters. 
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PR0C0M: 

Routine  that  calculates  the  thermodynamic  properties  of  air  and  fuel/air 
mixtures.  Range  of  temperatures  is  300  -  4000°R,  Range  of  fuel/air  ratio  is 
0  -  0.067623  (Stoichiometric).  Dissociation  is  not  accounted  for  in  this  routine. 


Calling  sequence; 

CALL  PR0C0M  (FAR,  T.,  CS,  AK,  CP.  R,  PHI,  H) 


FAR 

-  Fuel  to  Air  Ratio 

T 

-  Temperature 

CS 

-  Speed  of  Sound 

AK 

-  Ratio  of  Specific  Heats  (GAMMA) 

CP 

-  Specific  Heat  At  Constant  Pressure 

R 

-  Gas  Constant 

PHI 

-<#> 

H 

-  Enthalpy 

THERM0: 

Routine  that  adds  more  flexibility  in  using  PR0C0M. 

Calling  sequence; 

CALL  THERM0  ©  H,  T,  S,  AM,  L,  FAR,  K) 

P 

-  Pressure  In  Atmospheres 

H 

-  Enthalpy 

T 

~  Temperature 

S 

-  Entropy 

AM 

-  Molecular  Weight  of  Mass 
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L  -  Fuel  to  Air  Ratio  Indicator 

0  =  100%  Air 

1  =  Fuel  to  Air  Ratio  =  FAR 
FAR  ~  Fuel  to  Air  Ratio 

K  -  Indicates  Solution  Desired  for  T  or  S 

0  =  Find  H  for  Input  T 
1  -  Find  T  for  Input  H 

Subroutine  Required:  PR0C0M. 


AFQUIR: 

Air  Force  Quadratic  Interpolation  Routine.  This  routine  sets  up  a  quadratic 
equation  and  coverages  on  a  solution  using  Newton’s  method  of  solving  equa¬ 
tions. 

See  program  listing  for  calling  sequence  and  definitions  of  parameters. 
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SECTION  IV 


INPUT  PARAMETERS 


SYMBOL 

INITIAL  VALUE 

DESCRIPTION 

ALTP 

0.0 

Altitude 

AM 

0.0 

Flight  Mach  No. 

ETAR 

0.0 

Ram  Recovery 

=  0.0,  calculates  Mil  Spec. , 
otherwise  uses  value  input 

DELTO 

0.0 

Change  in  ambient  temp  from 
1962  atmosphere 

P2 

0.0 

Engine  face  pressure  in 
atmospheres 

Input  only  if  different  from 
that  calculated  by  ETAR 

PRES 

1.0 

=  1.0  Prints  output  pressures 
in  atmospheres 

=  14.696  Prints  output  pres¬ 
sures  in  lbs/  sq  inch 

WAENG 

1.0 

Total  engine  inlet  airflow 

BPR 

0.0 

Bypass  ratio  =  duct  flow/  core 
flow 

=  0.0,  turbojet  (i.e.  ,  no  duct) 

CV 

1.0 

Nozzle  velocity  coefficient 
=  actual/ ideal  velocity 

DPD 

0.0 

Duct  pressure  loss,  (P24- 
P26)/  P24 

DPFH 

0.0 

Fan  hub  pressure  loss, 

(P21H  -  P21L)/  P21H 

DPC 

0.0 

Inter-Compressor  Pressure 
Loss,  (P22L  -  P22)/  P22L 

PRFT 

1.0 

Fan  tip  pressure  ratio 

PRFH 

1.0 

Fan  hub  pressure  ratio 
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SYMBOL 

INITIAL  VALUE 

DESCRIPTION 

PRLP 

1.0 

LP  compressor  pressure  ratio 

PRC 

1.0 

HP  compressor  pressure  ratio 

LCSL 

0.0 

LP  compressor  seal  leakage, 
dumps  into  duct  if  turbofan  or 
overboard  if  turbojet 

HCSL 

0.0 

HP  compressor  seal  leakage, 
dumps  same  as  LCSL 

ETAFT 

1.0 

Fan  tip  efficiency 

ETAFH 

1.0 

Fan  hub  efficiency 

ETALP 

1.0 

LP  compressor  efficiency 

ETAC 

1.0 

HP  compressor  efficiency 

ETATH 

1.0 

HP  turbine  efficiency 

ETATL 

1.0 

LP  turbine  efficiency 

T4 

0.0 

Combustor  discharge  tem¬ 
perature  (°R) 

T7 

0.0 

A/  B  combustor  discharge 
temperature  (°R) 

T27 

0.0 

Duct  combustor  discharge 
temperature  (°R) 

DPT 

0.0 

Inter-turbine  pressure  loss, 

(P5  -  P51)/P5 

DPE 

0.0 

Tailpipe  cold  pressure  loss, 
(P56  -  P6)  P56 

ETAB 

1.0 

Main  combustion  efficiency 

ETABAB 

1.0 

A/  B  combustion  efficiency 

ETABFD 

1.0 

Duct  combustion  efficiency 

DPB 

0.0 

Main  combustor  pressure 
loss,  (P3  -  P4)/P3 

DPBAB 

0.0 

A/  B  combustor  hot  pressure 
loss,  (P6  -  P7)/P6 

DPBFD 

0,0 

Duct  combustor  hot  pressure 
loss,  (P26  -  P27)/P26 
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SYMBOL 

INITIAL  VALUE 

DESCRIPTION 

PCBLNZ 

0.0 

Engine  core  nozzle  cooling 
flow  ratio  (to  HP  compressor 
inlet  flow) 

PC  BLOW 

0.0 

LP  compressor  bleed  flow 
ratio  (to  LP  compressor 
inlet  flow).  Lost  to  cycle. 

PC  BLOB 

0.0 

HP  compressor  bleed  flow 
ratio  (to  HP  compressor 
inlet  flow).  Lost  to  cycle. 

PCBLC 

0.0 

Turbine  cooling  bleed  flow 
ratio  extracted  from  HP 
compressor  (to  HP  compres¬ 
sor  inlet  flow) 

PCBLT4 

0.0 

HP  turbine  inlet  nozzle  cool¬ 
ing  flow  ratio  (to  HP  com¬ 
pressor  inlet  flow) 

PCBLHP 

0.0 

HP  turbine  exit  cooling  flow 
ratio  (to  HP  compressor  inlet 
flow). 

HPEXT 

0.0 

Horsepower  extracted  from 

HP  turbine  for  accessory 
drive 

ITITLE 

0 

=  1,  card  following  data  case 
will  be  title  card  (Col.  1-66). 
Program  then  sets  =  0. 

=  0,  no  title  card  expected. 

The  last  title  card  read  will 
be  printed  at  top  of  output 
page 

IDEL 

0 

Design  "derivative"  indicator. 
(See  discussion  of  routines: 
DSDRIV) 

IAFTBN 

0 

=  0,  no  A/ B. 

=  1 ,  use  input  T7 

Must  be  set  =  1  for  each  A/  B 
point 

ID  BURN 

0 

=  0,  no  duct  burning 
=  1,  use  input  T27 

Must  be  set  =  1  for  each  duct 
burning  point 
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SECTION  V 


STATION  DESIGNATION 

STATION  NUMBER  LOCATION 


1 

2 

Core: 

21H 

21L 


22L 

22 

3 

4 
41 


Ambient 

Inlet  exit/ engine  face 


Fan  hub  discharge 

LP  compressor  inlet  if  PRLP  is 
greater  than  1.0,  otherwise  HP 
compressor  inlet 

LP  compressor  discharge 

HP  compressor  inlet 

HP  compressor  discharge 

Main  combustor  discharge 

HP  turbine  inlet 


5 


HP  turbine  discharge  before  cooling 
flow  has  been  added 


51  LP  turbine  inlet 

55  LP  turbine  discharge  before  cooling 

flow  has  been  added 


56 

6 

7 

8 
9 


Duct: 

24 


LP  turbine  discharge  including  cool¬ 
ing  flow  effects 

A/'B  combustor  inlet 

A/  B  combustor  discharge 

Engine  core  nozzle  inlet 

Engine  core  nozzle  discharge  (Isen- 
tropic  expansion  to  PI) 


Fan  tip  discharge 
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STATION  NUMBER 

LOCATION 

26 

Duct  burner  inlet 

27 

Duct  burner  discharge 

28 

Duct  nozzle  inlet 

29 

Duct  nozzle  discharge  (Isentropic 
expansion  to  PI) 

Station  Designation  Schematic 
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SECTION  VI 

OUTPUT  PARAMETERS 

Besides  most  of  the  input  parameters  being  output,  the  following  parameters 
are  also  output. 


SYMBOL 

UNITS 

DESCRIPTION 

VA 

fps 

Flight  velocity 

CS 

fps 

Amttent  speed  of  sound 

PCBLLP 

LP  turbine  exit  cooling  flow 
ratio  (to  HP  compressor  inlet 
flow) 

NOTE: 

PCBLC  =  PCBLT4  +  PCBLHP  + 
PCBLLP 

PR0A 

— 

Overall  core  compression 
ratio,  (P3/P2) 

WA~ 

#/sec 

Airflow  rate  (number  designates 
location) 

BLCSL 

#/  sec 

LP  compressor  seal  leakage 
flow  rate 

BHCSL 

#/  sec 

HP  compressor  seal  leakage 
flow  rate 

P- 

Atmospheres 
or  psi 

Total  pressure  (number  desig¬ 
nates  location) 

T- 

°R 

Total  temperature  (number 
designates  location) 

PRTH 

— 

HP  turbine  pressure  ratio, 

(P41/  P5) 

PRTL 

— 

LP  turbine  pressure  ratio, 

(P51/  P55) 

blngJ  z 

#/  sec 

Engine  core  nozzle  cooling 
flow 

V9,  V29 

fps 

Nczzle  exit  velocities  (Isen- 
tropic  expansion  to  Pi) 

HV 

Main  combustor  fuel  heating 
value  at  T4  for  JP-4 
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SYMBOL 

UNITS 

DESCRIPTION 

HV7,  HV27 

A/  B  and  duct  burner  fuel 
heating  values  at  their 
respective  temperatures  for 
JP-4 

FN/WA 

— 

Net  thrust/  total  engine  airflow 

THG9 

— 

Core  gross  thrust  per  pound 
total  airflow 

THG29 

— 

Duct  gross  thrust  per  pound 
total  airflow 

ETAP 

— 

Propulsion  Efficiency 

H- 

BTU/  #  Mass 

Total  enthalpy  (number  desig¬ 
nates  location) 

TS9,  TS29 

°R 

Static  temperature  at  nozzle 
exits 

HS9,  HS29 

BTU/  #  Mass 

Static  enthalpy  at  nozzle  exits 

BL$W 

#/sec 

LP  compressor  bleed  flow 
lost  to  cycle 

BL0B 

#/  sec 

HP  compressor  bleed  flow 
lost  to  cycle 

BLC 

#/  sec 

HP  compressor  bleed  flow 
for  turbine  cooling 

BLT4 

#/sec 

HP  turbine  inlet  nozzle 
cooling  flow 

BLHP 

#/  sec 

HP  turbine  discharge  cooling 
flow 

BLLP 

#/  sec 

LP  turbine  discharge  cooling 
fir  a 

NOTE: 

BLC  =  BLT4  +  BLHP  +  BLLP 

WG- 

#/  sec 

Mass  flow  rate  (includes  fuel 
flow) 

FAR- 

— 

Fuel  flow/ airflow  (number 

designates  location) 
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SYMBOL 

UNITS 

DESCRIPTION 

WF- 

#/sec 

Fuel  flow  rate  (number  desig¬ 
nates  combustor  location) 

ETATHM 

— 

Thermal  Efficiency 

ETACf 

— 

Overall  efficiency  (i.e. , 

ETAP  k  ETATHM) 

SFCU 

#  fuel  per  far/  i  net  thrust 

Uninstalled  specific  fuel 
consumption 

FG 

#  thrust 

Gross  thrust 

FN 

#  thrust 

Net  thrust 

18 
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SECTION  vn 
PROGRAM  LISTING 
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SlBFTC  CAKPET  DECK 

COMMON  /PAKAM/  ETAK  , ETAFT  *ETAFH  »ETALP  ,tSAC  “V* 
1— ETAB .ETATH  ,  STATE  ,PKFT  ,PRFH  ,PRLP  tPRC  i 

2  DPB  ,DPT  ,DPE  » OPD  ,DPFH  ,DPC  ,HPEXT  , 

3  LCSL  jHCSL  , PCBLNZ, PCBLOW,PCBLOBlPCBLC_JCV _ j_. 

4  T4  ,T7  ,T27  ,ETABAB,ETABFD,DPBAB  ,DPBFD 

DIKENSION  TITLE ( 11 ) ,AW0RD(4) 

REAL  LCSL 

-  . DAIA..AMURP/6HAI-H0.SP  i&HHEB  6  S.  .ifrHLB  S/3Ik6H_iN,QH_/ _ 

NAMELIST/  INPUT/ 

1  ALTP  » AM  *ETAR  »D£LTO  ,P2  ,PRES  , 

2  NAENG  ,BPR  tCV  ,OPD  ,DPFH  ,DPC  , 

3  PRFT  ,PRFH  ,PRLP  ,PRC  ,LCSL  tHCSL  , 

_ 4  ETAFT  ,£TAFH  , ETALP  > ETAC  , ETATH  ,ETATL  , _ 

5  T4  ,T7  »T27  ,DPT  ,DPE  ,  PCBLNZ » 

6  ETAB  ,ETABA8,ETABFD,PCBL0W,PCBL0B, PCBLC  ♦ 

7  OPB  jOPBAB  fOPBFO  ,PCBLT4,PCBLHP,HPEXT  , 

8  ITITLE  , IDEL  .IAFTBN, 10BURN 

-  . JL£ _ ■! _ 

PRES  =1.0 
WAENG  =1.0 
CV  =1.0 
PRFT  =1.0 
PRFH  =1,0 

PRLP  =1.0 _ 

PRC  =1.0 
ETAFT  =1.0 
ETAFH  =1.0 
ETALP  =1.0 
ETAC  =1.0 

ETATH  =1.0 _  _  _ _ 

etaTl~^T76 
ETAB  =1.0 
ETABAB=1.0 
ETABF0=1 .0 
OELTO  =0.0 
BPR  =0.0 
PPC  ^570 
OPFH  =0.0 
DPC  =0.0 
LCSL  =0.0 
HCSL  =0.0 

DPT  =0.0 _ _ 

OPE  =0.0 
PCBLNZ =0.0 
PCBLOW=0.0 
PCBL08«0.0 
PCBLC  =0.0 
OPB  =0.0 

- DPBAg-^j#0 - 

OPBFO  =0.0 
PCBLT4=0 .0 
PCBLHP=0.0 
HPEXT  =0.0 
IUEL  =0 


C  ***  CONSTANTS 

G  =32.174049 
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AJ  =778.26 


i  P 2  =0.0 

_ EIAB. _ Hilftfl _ _ _ _ _ 

IERR0R=0 

_ IAFTBN°0 _ 

IDBURN=0 

JBASE  _f. 0  _ _ _  _ _  _ 

READ"  ( 5 »  INPUT  ) 

.  IFHTITLE.GT.0)  R£AP(ft»100)  (  Tl  T J.E  ( i ).,  I  =1 1 11) _ _ 

ITITIE=0 

ALT  =ALTP»2.0855531£07/(2.0855531£07-ALTP) 

CALL  ATM0S(ALT,Ti,x'r,X2,X3,Pl*CS,X4f  1111 

_  Tl  =T1+DELT0  __  _ __ 

iTTOELTO.GT70.0)  CAlL  ?R0C0M(0.0,Ti,CS,X~l  ,X2.X3VX4|X51 

C  ***  BEGINNING  Ol  InUT  ”” 

IF (STAR .£0.0.0 )  CALL  RAM! AM, STAR  t 
VA  =AM*CS~ 

CALL  THERMO  I  PI , H 1, Tl , SI, XI, 0 *0.0,0) 

H2 —  - - - - 

P2P  =1.0 

- mrr-PTTTfl - - 

CALL  THERMO  I  P2P »H2»X1,S2P»AHW2P ,0,0.0, 1 ) 

IF I A8SI S2P-S1 T. LE. 0.00001 *Sl)  GO  TO  5 . . 

3  P2P  =P1*EXP ( • 503547 1*AMW2P* I S2P-S1+1 .98591 2/AMW2P*ALUG I P2P/P  1 )  ) ) 

GO  TO  500 

5  IF (P2.GT .0.0 )  ETAR  =P2/P2P _ 

—  _^p^ETAR 

CALL  THERMO !P2,H2,T2,S2» XI, 0, 0. 0, 1 ) 

6'  "  '  IF  <  IDEL.GT.O)  CALL  DSDRIVlSl) 

IF(BPR.LE.O.O)  GO  TO  7  _ _ 

C  »»«  BEGINNING  OF  FAN  TIP  _ _ 

CALL  £bMP($>RfiT»ETAFt»P2,T2,S?»H2»P24,T24»S24»H24,rER] 

IFIIER.GT.O)  GO  TO  501 


C  ***  BEGINNING  OF  FAN  HUB 

CACL  ~COMP (PRFH,ETAFH,P2,T2,S2,H2,P21H,T21,'S21,H2I,IERI 
IFIIER.GT.O)  GO  TO  502 

- P7TT  ~=P'21W*T1  ."O-DPFTTJ  ™ 

GO  TO  9 

T~  -  P24  =0 .0 

T24  =0.0 

~  ~  H24  =0.0 

DPO  =0.0 

- pTnT__T_^ - 

ETAFT  =1.0 
P21H  =P2 
P21L  -P21H 
T21  =T2 

_ H21  =H2 _ 

OPFH  =0.0 
PRFH  =1.0 
ETAFH  =1.0 

9  IFIPRLP.LE.1.05  GO  TO  11 


C  ***  BEGINNING  OF  LP  COMPRESSOR 

- C'aCT’TRFRmC  ( P’2  i  L ,  h2  1 ,  T2 .1 ,  S2 17x170",  o  .7,T! - 

CALL  COMP !PRLP,ETALP,P?1L,T21,S21»H21»P22L,T22,S22,H22,IER) 
IFIIER.GT.O)  GO  TO  503  *  '  ' 
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on  T ( ' 

13 

II 

P22L 

=P21L 

T22 

=  T2 1 

H22 

=H21 

UPC 

=0.0 

PRLP 

=  1.0 

ETALP 

=  1.0 

LCSL 

=0.0 

13 

IF (PRC 

.LE.1.0)  GO  TO  15 

C  *>»  = 

BEGINNING  OF  HP  COMPRESSOR 

P22 

=P22LM  l.O-OPC) 

CALL  THERMO (P22,H22,T22,S22,X 1,0, 0.0,0) 

CALL  C(JMP(PRC,ETAC,P22,T22,S22,H22,P3,T3,S3,H3,IER ) 

IF ( IER 

.GT.O)  GO  TU  504 

GO  TO 

17 

15 

P22 

=P22L 

P3 

=P22 

T3 

=  T22 

H3 

=H22 

UPC 

=  0.0 

PRC 

=  1.0 

ETAC 

=  1.0 

HCSL 

=0.0 

17 

PROA 

=PKC*PRLP*( 1.0-DPC)*PRPH*( i.O-DPFH) 

C  =  #= 

AIR  FLOWS 

WA2 

=  1.0 

=WA2/(BPR+1.0) 

WA24 

=WA2-WA21 

WA22 

=WA21*( 1.0-LCSL-PCBLOW) 

w  A3 

=HA22*( l.O-HCSL-PCBLOB-PCBLC-PCBLNZ  ) 

BLEED 

FLOWS 

BLOW 

=  PCBLOW  $WA21 

BLLCSL 

=LCSL  *W A22 

BLHCSL 

=HCSL  =>WA22 

BLOB 

=PCBLOB*WA22 

IF  (  (PCBLT4+PCBLHP) .GT.PCBLC)  PCBLHP  =  PCBLC-PCBIT4 

PCBLLP 

=PC6LC-PCBLT4-PCBLHP 

- FTCC - =PCBLC  *WA22 - 

BLT4  =PCBLT4*WA22 
BLHP  =PCBLHP*WA22 
BLLP  =PCBLLP*WA22 
BLNOZ  =PCBLNZ<‘WA22 

;-5'*-S-CTEG  INNING  "OF  TOIN  COMBUSTOR-  -  — 

CALL  C0MB(P3,T4,H3,ETAB,DPB,P4,H4,S4,FAR4,HV) 

WF4  =FAR4*WA3 
WG4  =WA3+WF4 

:  ***  BEGINNING  UF  HP  TURBINE 

- pr^jpj - ^ - - -  -  -  -  - 

WG41  =WG4+BLT4 
FAR41  =WF4/!WA3+BLT4) 

H4 1  =(H4*WG4+H3»BLT4)/WG41 

CALL  THERM0(P4l,H41,T41 ,S41 ,  Xl , 1 , FAR41 , 1 ) 

HPBTU  =0,7068»HPEXT/( WAENG4WG41 ) 

- TTHTW  ~?HFFTTT+(H3-R22>WA22)/WG4l 

CALL  TURBIP41 ,H41 ,S41 , FAR41 , ETA TH , OHTH , P5 ,T 5 , H5 , S5 , IER) 
IF(IER.GT.O)  GO  TO  505 
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PKTH  =P4l/P5 

P51  =  P8*< 1 .O-DPT ) 

WG51  =WG41+8LHP 

_ Ht>  1  =(H5»WG41+H3»BLHP ) /WG81 _ _____ _ 

FAK51  =WF4/(WG51-wF4i 

CALL  THfcRMO(P51 ,H81 ,T51 ,  S91 ,  X  1  ,  1 , FAk51 , 1  ) 

C  ***  BEGINNING  OF  LP  TURBINE 

OHTL  =( IF(24-H2  J*WA?4+(H21-H2)*WA21  +  (H22-H21 )  «WA2  1  ( /W<>5  1 

_ CALL  TURB(P51,H51,S51,PAR81  ,  F  I A  T 1  ,  I)hTL,P  88  ,  T88,h88,S88,  I  F  k  )_ 

IF(IER.GT.O)  GO  TO  806 

PRTL  =P5 1 / P55 

P86  =  P55 

WG56  =HG8 1  +  BLL  P 

H56  =<H55*WG51+H3sBLLP)/WG66 

_ FAR86  =WF4/ (WG56-WF4 ) _ 

CALL  THERM0(P56,H56,T56,S56, XI , 1 ,FAR56, 1) 

-  ***  BEGINNING  OF  TAiLPJPF  AND  A/P 
P6  =P56*< l.O-DPE) 

T  6  =T56 

_ H6  =H56 _ _ _ 

IF  UAFT8N.GT.0)  GO  TO  19 

WF  7  =0.0 

T7  =T6 

P7  =P6 

H7  =H6 

FAR7  =F AR86 

WG7  =WG56 

WFTGG  =WF4 

GO  TO  21 

19  CALL  ABFIRE ( P6  ,  T7 ,H6 , F AR 56 , F TABAB , DPBAB , WG56 , WF 4 , P7 , H7 , S7 , 

1  FAR7,WF7,kG7, WFTGG, HV7) 

BEGINNING  OF  GG~NOfZl'E 
21  UGR  =WG7+BLN0Z 

HR  =(H7*WG7+H3*BLN0Z I/WGR 

F ARB  =WFTGG/ (WG8-WFTGG  ) 

P8  =P7 

_ CALL  THERMO (P8, H8 , T8, SB tX 1,1, FARR, I  ) _ 

IF (P8.LT.P1 )  GO  TO  507 

CALL  NOZ (PI ,P8,T8,S8,FAR8,TS9,HS9) 

IF (TS9.LE.T1 )  GO  TO  508 
V9  =CV*223.733*SQRT(H8-HS9) 

IF (BPR.LE.O.O)  GO  TO  23 

C  BEGINNING  OP  OllCT  AWT  RfB  ~  ' 

P26  =P24*{1.0-DPD) 

WA26  =WA24+LCSL*WA21+HCSL*WA22 

H26  =(H24*WA24+Fi21*LCSL*WA?l+H22*HCSL*WA22  I/WA26 

CALL  THERM0(P26,H26,T26,S26, XI .0,0.0, 1 ) 

IF ( I0BURN.GT.0  )  GO  TO  25 

WF27  =0.0 
P27  =P26 

T27  =T26 

H27  =H26 

S27  =S26 


23  P26  =0.0 

T26  =0.0 
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H?6  =  0.0 

P27  =0.0  __  _ 

T  2  7  =0.0 

_ h?7  =0,0 _ 

P28  =0.0 

728  =0.0  _ 

H2B  =0.0 
fS  29  =0.0 

HS29  =0.0 

_ V£9 _ =0  ._0 _ _ _ _ _ _ 

XMU  =0.0 
WP27  =0.0 
GO  TO  29 

25  CALL  COMB(P26,T27,H26,eTA8FD,OP8FO,P27,H27,S27,FAR27,HV27) 

HF27  =FAR27*WA26 

27  WG?7  =WA2fe+MF?7 _ 

WG28  =WG27 
P28  =P27 

T28  =T27 

H28  =H27 

S?8  =527 

FAR  28  =F  AR  27 _ _ 

CAL l  NO  ZIP 1 , P  28 , T28 , S2B , F AR  2  8 , TS  2  9 , HS2 9  ) 

V29  =CV* 22 3. 7 33* SORT (H28-HS29 ) 


C  ***  PERFORMANCE  CALCULATIONS  _  _ 

XMU  =VA/V29  . . 

29  XNU  =VA/V9 

- THgjy-SVjTOJCZB/G - 

THG9  =V9*WG8/G  _ 

TKGU  =  THG9-*-TKG29 
FNU  =THGU-VA*WA2/G 

FNOWA  =FNU/WA2  '  * 

WFTOT  =WF  TGG+WF27 

- SFCU — *WFTUT*3600./FNU - 

FG  =THGU*WAENG 
FN  =FNOWA*WAENG  ' 

ETAN  =I./XNU*( l.+EAR8-XNU)+8PR/XMU*( 1 . +FAR28-XMU ) 

ET  AO  =ET  AN+0 . 5*  C  (1  .+FAR8  )  /  XNU**2* I 1.-XNU7  **23-BPfT* iTTFF AK7FT 
1  /XMU**2*(  1.-XMIJ)**2) 

- PH5P — *tl  AN/E'UIJ - 

FTATHM=ETAD*VA**2/<G*AJ*<  FAR8*(HV+VA**2/ (2.*G«AJ) )  + 

1  BPR*FAR28*(HV27+VA**2/ (2.*G*AJ III)  '  ~ 

ET  AO  =ETAP*ETATHM 

31  XWA2A  =WA2A  *WAENG 
THA26  =WA26  AWAENG 
XWA21  =WA21  *WAENG 
XHA22  =WA22  *WAENG 
XW  A3  =WA3  *WAENG 
XBLOW  =BLOH  *WAENG 
XBLCSL=BLLCSL*WAENG 

- XBHCSL=8L'HUSrTWAE77G - 

XBLOB  =BLOB  *WAENG 
XBLNOZ  =BLNOZ  *WAENG 
XB1.C  =BLC  *WAENG 
XBLTA  =BLTA  *WAENG 
XBLHP  =BLHP  *WAENG 

- XSTL  F  ^BCIT  “STJA-ENG .  .  *  - 

XWG4  =WGA  OWAENG 
XWGA1  =WGA 1  *WAENG 
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XWG51 

=WG5  1 

»WA6NG 

XWG56 

=WG56 

*  *WAENG 

XWG7 

=WG7 

4WA6NG 

BTTsn 

.*WA£NG 

XWG27 

=WG27 

*WAENG 

_ XWfi2fl 

=WG2R 

»WA6NG  _ 

XWF4 

=WF4 

4WAENG 

XWF  7 

=WF  7 

OWAENG 

XWF  27 

=WF27 

WWAENG 

XWFTGG 

•=WFTGG  4WAENG 

XP1 

=  P1 

4PP.ES 

XP2 

=  P2 

4PRES 

XP21H 

=P21H»PRFS 

XP21L 

=P21L*PRES 

XP22L 

=P22L*PRES 

XP22 

=  P22L4PRF  8 

XP3 

=P3 

»PRES 

XP4 

=  P4 

4PRES 

XP41 

=P41 

4PKES 

XP5 

=  P5 

4PP.FS 

XP5  1 

=P5l 

4PRES 

XP55 

=P55 

*PRE  S 

XP56 

=  P56 

4PRES 

XP6 

=  P6 

opRf-S 

XP7 

=P7 

4PRFS 

XP8 

=  P8 

4PRES 

XP24 

=  P24 

4PRES 

XP26 

=  P26 

4PRFS 

XP27 

=  P27 

4PRES 

XP28 

=  P2ft 

4PRES 

|  i f ( jbasf.le.oi  sr-co  =  sfcii 

I  IF  ( JHASF  .Ll;  .0)  FNB  =  FN 

1  PCBSFC=SFCU/SFCB 

|  _ PCBFN  =FN/FNR 

1WR 1 T  F ( 6  ,2000  )  iTITLEU 

IF (  I0EL.GT.0)  CALL  DSOOUT 
IF  (  I  ERROR  ,(»T  »0  )  WR I TE ( 6 , 1990 ) 


WRITE (6,2001 ) 

ALTP 

,  AM 

,  VA 

WRITE (6,2002 ) 

HPEXT 

,LCSL 

,HCSL 

WRITE (6,2003) 

PCBLC 

,  PCBL T 4 

',  PCRLHP 

WR I T  E 1 6 ,2004 ) 

PRET 

,  ET  AFT 

, XWA24 

1 

PRFH 

,  ETAEFt 

, XWA  2 1 

WR I TF (6 ,2003 ) 

PR  L  P 

,  E  T  A 1.  P 

, XWA22 

IF (PRES.GT.l. 

0)  IP  = 

3 

WR I T  F ( 6 ,2006 ) 

OPO 

,  DP  FH 

,OPC 

WRITE  (6,2007) 

XP1 

t  T 1 

»H1 

WRITE16.200H) 

XP21H 

,  T2  1 

,H21 

WRITE (6,2009) 

XP22L 

,  T22 

,H22 

WRITF(6,2010) 

XP  3 

,T3 

»H3 

1 

XP4 

»  T4 

,  H4 

WRITE!6,2011 ) 

DPB 

rETAB 

,  F  AR4 

i 

XP41 

,  T  41 

*  Ft  4 1 

WRITE (6,2012) 

XP3 

,T5 

» Hb 

WRITE (6,2013) 

XP51 

,  T31 

,Hbl 

1 

XP33 

,T3S 

,Hbb 

WRITE (6,2014) 

PRTL 

,  E  T  A  T  L 

,  OPF 

WRITE (6,2013 ) 

XP6 

»  T6 

,  H6 

1 

X  P7  ~ 

,  T  7 

.H7 

IFIIAFTBN.GT. 

0) 

WRITE! 6, 2016) 

WRITE (6,2017) 

X  PR 

,TB 

,  HR 

1, 


rOFLTO  ,  E  T  AR  ,CS 
,PC  BLOW,  PC_R  L I H  ,_PC  *  IN/ 
rP'CHll  P  7PRHA  ,RPK  ~ waFnG 
i  XWA  2 6  , 

,  XBLf  SL 

,/RHCSL.RKC  *  F  T  AC  ,XWAl 


,AW()R()(  IP) 
,XP2  ,T2 
,XP21L 

(XPl.tlW  ,XP?2 
« XF>1  C  , 

,  XWG4 
i  XWE4  , 

,  X  R  L  T  4 

,  XWG41  ,PRTH 
,  XRLHP  , 
r  XWG3 1 
,XP5 (>  ,  T  5f> 

,  XW(, b_6_  , _ 

rxwr,7 

ETABAB  »DPBAB 
,XBLM07  , 


,  AWHKD  (  I  P+  1  ) 

,h2 

sXBLUd 

,  F  T  A  T  M  ,  | )  P  T 

,H36  ,XBUP 

,  XWF  7 
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1 

V9 

,  TS9 

,HS9 

,  XWG8 

WRITE(6,2018( 

XP24 

,  T24 

,  H24 

,  XP26 

,T26 

,H26 

WRIT£(6,2019) 

XP27 

,T2  7 

,H27 

, XWG2  7 

HHnairasEEHsZ 

oi 

WR I TF ( 6 1 2020 ) 

FTABFD 

,OPRFD 

, XWF2  7 

WR ITE (6 ,2021 ) 

XP28 

,T28 

,H28 

, XWG28 

,  V29 

,TS29  ,HS29 

WRITE (6,2022! 

FAR41 

, FAR51 

, FAR56 

,FAR7 

,FAR8 

,FAR2  7 

WRITE (6 ,2023 ) 

HV 

,HV7 

,HV27 

,CV 

,V9 

,  V29 

WRITE (6,2024) 

FNOWA 

,  CHG9 

, THG29 

,  6TAP 

,ETATHM 

,etao 

WRITE(6,2025) 

SFCO 

»FG 

,FN 

— n  III  1  \m  1  H  II 

hilll-E ! 

Him? 

nUTTsT* 

WRI T  E (6  »2050 ) 

IF ( IOEL.GT.O)  JBASE  =1 
IF ( I  PEL  .GT.O>  GO  TO  6 
GO  TO  1 

C  >TO»  FMRflR  STATEMENTS _ _ 

SOO  WRITE(6,1500)  P 1 , S 1 , P2P , S2P 
GO  TO  600 

80 1  WR!TE(6,1501 )  P2 , T2 , PRFT , ET A F T 

GO  TO  600 

502  WRITE !6 ,1502 )  P2  ,  T2 , PRFh  ,  ETAFh 

_ Gfl  TO  600 _ _ 

503  WR  l T F  ( 6 , 1503  !  P2 1 L  ,  T 21 ,  PRL P  ,  F TAS_ P~ 

GO  TO  600 

504  wkITE<5,1504)  P22 , T2 2 . PR C , E TAG 
GO  TO  600 

505  WRITE (6 , 1505  I  P4 1 ,H41 ,DHTH , ETATH 
GO  TO  600 

5T515 - W  ft  n  F7t>71 5061  "PSITh'S  ITOhTTT  FTaTl - 

GO  TO  600 

507  WRITEI6.1507)  P8,P1 
GO  TO  600 

508  wRITF !6 , 1508 1  TS9.T1 

400  I  F  RROR  =  1 _  _ _ _ _ 

GO  TO  31  -----  -  ' 

100  FORMAT (11 A6! 

1500  EORHAT ( 1H1 ,25nINLET  010  NOT  CONVERGE  -  ,4tl4.6) 

1501  FORMAT ( 1H1 , 16HFAN  TIP  ERROR  -  ,4E14.6) 

ISO?  FORMAT ( 1H1 , 16HFAN  HOB  ERROR  -  ,4E14.6) 
fToi  PcTRMAT  (  1H  1  ,  16MLD  CtjMfT  ERROR  -  ,4E14.6) 

1504  FORMAT ( 1H1 , 16HHI  COMP  ERROR  -  ,4E14.6) 

1505  FORMAT ( 1H1 , 16HHI  TORB  ERROR  -  ,4E14.6) 

1506  FORMAT  ( 1H1  , 16HL0  TURB  ERROR  -  ,4El*-.6) 

1507  FORMAT ( 1H1 ,23HGG  NOZZLE  PRES  FRROR  -  ,2E14.6) 
l 5 OH  format ( 1H1 ,23hGG  NUZZtE  TEMP  ERROR  -  ,2E14.6) 

P5 975  FTl RK5T fTH 0 , 35X', 37B m*-TKRTW “TTT  FOCI OflTTTG'WTTIT “ ".Vi  T 


2000  FORMAT ( 1H1/1H  ,20X,11A6) 

2001  FORMAT ( 1H0.29X, 


1 

7HALTP  =,  F  8 .0 , 9H 

AM  = , 

F  8 . 4 , 9H 

VA  = 

F8.2./1H 

,  29X 

7 

7 HO EL  TO  =,  F8.2,9H 

ETAR  =, 

F8.5,9H 

CS 

F8,2) _ 

mur 

1 

FORMUTT TRC , 2 0 X  , 

7HHPEXT  =,  F8.2.9H 

LCSL  =, 

FR.S,9M 

HCSL  = 

F8.5./1H 

,  20  X 

2 

7HPCBL0W=,  F  8 , 5 , 9H 

PCB  LOR  = , 

F  8. 5 , 9H 

PCBLN7= 

F8.5  ) 

2  003 

FORMAT ( 1 H  ,?0X, 

A 

7HPC8LC  =,  F8.5.9H 

PC8  L  T  4=  , 

F  8 . 5 , 9H 

PCBL  HP  = 

F8.5, 

1 

3X, 7HPCBLLP=,  F8. 5,  / 

IH  , 20X , 

2 

7HFR0A  =,  F8.3.9H 

BPR  =, 

F8.3.9H 

WA  F  NG  = 

F  8 . 2  1 

2  004 

FORMAT ( IH0.20X, 

A 

7HPRFT  =,  F  8 , 4 , 9H 

ETAFT  =, 

F  H  .  5 , 9H 

WA24  = 

F8.3, 
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1  3X »  7HWA26  '=,  F8.3,/1H  .OX, 


2 

7HPRFH  =j  F8 . A, 9H 

3X,7H8LLCSL«,  F8.3) 
ORMAT ( lri  , 20X  , 

ETAFH  =, 

F8.5.9H 

WA21_ 

55  9 

F8.3, 

2005 

3 

F 

A 

7HPRLP  =,  F8.4,9H 

6TALP  =, 

F8.5.9H 

HA22 

-  t 

F8.3, 

1 

3X,7H8LHCSL=,  F8.3,/1H  ,20X, 

2 

7HPRC  =  ,  F8.4,9H 

ETAC  =, 

F8.5.9H 

WA3 

=  , 

F8.3) 

2006 

FORHATUH  ,  20X , 

1 

7HDP0  =,  F8.5,9H 

OPFH  =, 

F8.5.9H 

DPC 

S  » 

F8.5,/1H0,20X, 

2 

13HPRESSURES  IN  ,  2 A6 ) 

2007 

FORMAT (1H  , 20X , 

1 

7HP1  =,  F  8 . 3 » 9H 

T1  =, 

F8.2,9H 

Hi 

S  » 

F8.2./1H  , 20X , 

2 

7HP2  =,  F8.3,9H 

T2  =, 

F9.2.9H 

H2 

“  y 

F8.2) 

2008 

FORMAT (1H  ,20X, 

1 

7HP21H  =,  F8.3,9H 

T21 

F8.2.9H 

H21 

r  t 

F8.2./1H  , 20X , 

2 

7HP21L  =.  F8.3) 

2009 

FORMAT { 1H  ,20X, 

A 

7HP22L  =,  F  8 . 3 , 9H 

T22  =, 

F8.2 , 9H 

H22 

= , 

F8.2* 

1 

3X , 7HBL0H  =,  F8.3./1M  ,20X, 

2 

7HP22  =,  F0.3, 35X 

» 9H 

BLOB 

=  ♦ 

F  8  *  3  ) 

2010 

F0RMAT11H  , 20X, 

A 

7HP3  =,  F  8 . 3 , 9H 

T3  =, 

F8.2.9H 

H3 

s  9 

F8.2, 

l 

3X , 7H6LC  =,  F8.3,/1H  ,20X, 

2 

7HP4  =,  F8.3,9H 

T4  =  t 

F  8 . 2 »  9H 

H4 

=  9 

F8.2, 

3 

3X , 7HWG4  =,  F8.3) 

2011 

FORMAT ( 1H  , 20X , 

A 

THDPB  =,  F8.4.9H 

ETA8  =, 

F8.5»9H 

FAR4 

=  9 

F  8  .5  » 

1 

3X,7HWF4  =,  F8.4./1H  ,20X, 

2 

imoi 

TSTTPXT 

Pt4l 

=  * 

F8.2, 

3 

3X.7HBLT4  =,  F8.3) 

2012 

FORMAT (1H  , 20X, 

A 

7HP5  =,  F8.3,9H 

T5  =, 

F8.2,9H 

H5 

~  r 

F8.2, 

1 

3X.7HWG41  =,  F8.3,/1H  , 20X, 

2 

7HPRTH  =,  F8.4.9H 

ETATH  =, 

F8.5,9H 

DPT 

=  t 

F8.5) 

2G13 

FORMAT (1H  , 20X , 

A 

7HP51  =,  F8.3.9H 

T51  =, 

F8.2,9H 

H51 

- 1 

F8.2, 

1 

3X , 7H8LHP  =,  fS. 3,/lH  ,20X, 

2 

7HP55  =,  F8.3.9H 

T55  =, 

F8.2,9H 

H55 

“  9 

F8.2, 

3 

3 X , 7HWG5 1  =,  F8.3) 

201 A 

FORMAT (1H  , 20X , 

1 

7HPRTL  =,  F8.4,9H 

ETATL  =, 

F8.5.9H 

DPE 

=  * 

F8.5./1H  ,20 X , 

2 

7HP56  =,  F8.3.9H 

T56  =, 

F8.2,9H 

H56 

=  » 

F8.2, 

3 

3X.7HBLLP  =,  F8.3) 

2015 

FORMAT (1H  , 20X , 

A 

7HP6  =,  F8.3.9H 

T  6 

F8.2,9K 

H6 

=  T 

Fr.2, 

1 

3X , 7HWG56  =,  F8.3,/1H  ,20X, 

2 

^ F8.3.9H 

<7 =T 

USSiil 

=  t 

Fe .27  ‘ 

3 

3X,7HWG7  =,  F8.3) 

2016 

FORMAT (1H  , 2 1 X , 

1 

13H*  *  A/8  *  *,3X,7HETABAB=, 

F8.5,9H 

OPBAB 

=  f 

F8.5, 

2 

3X.7HWF7  *,  F8.4) 

2017 

FORMAT (1H  , 20X , 

A 

7HP8 

mo 

uBBia 

imBii 

~  t 

TS72, 

1 

3X,7HBLN02  =,  r8.3,/lH  ,20X, 

2 

7HV9  =,  F8.2.9H 

TS9  *, 

F8.2.9H 

HS9  ~ 

=  » 

F8.2, ' 

3 

3X.7HWG8  =,  F3.3) 

2018 

FORMAT ( 1H0 , 20X , 

1 

7HP24  =,  F8.3,9H 

T24  =, 

F  8 • 2 , 9H 

H24 

=  t 

F8.2./1H  ,20X, 

T 

T75  ~ 

■HEISiil 

=  t 

F  8 . 2  ) 

2019 

FORMAT (1H  , 20X , 

1 

7 HP  2 7  =,  F8.3.9H 

T27  =, 

F8,2',9H  H2T-  ' 

= 

“FTT.TT 

27 
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2  3X,7HWG27  =  ,  F8.3) 

2020  FORMAT ( 1H  »21X, 


1  13H*  *  D/B 

2  3X.7HWF27  = 

*  *,3X,7H6TABFn=, 
:,  F8.4) 

F  8 . 5 , 9H 

DPBFD 

=  t 

F8.5, 

2021 

FORMAT ( 1H 

,  20X  , 

A  7HP28 

2  t 

F8.3,9H 

T28  =, 

F8.2.9H 

H28 

“  » 

F8.2, 

1  3X,7HWG28  = 

=.  F8.3./1H  , 20X , 

2  7HV29 

3, 

F8.2.9H 

TS29  =, 

FB.2.9H 

HS29 

=  f 

F8.2) 

2022 

■FORMAT  I  1H0 , 20X  , 

1  7HFAR41 

a  , 

c  8 . 5 , 9H 

FAR51  =, 

F8.5.9H 

FAR56 

=  T 

F8.5./1H 

,20X, 

2  7HFAR7 

=  t 

F8.5,9H 

FAR  8  =, 

F  8 • 5 , 9H 

FAR27 

=  » 

F8.5) 

2023 

FORMAT ( 1H 

*  20X , 

1  7HHV 

=  * 

F  8 . 1 , 9H 

HV  7  =, 

F8.1 ,8H 

HV27 

5  t 

F8.1./1H 

,20X , 

2  7HCV 

= » 

F8.5,9H 

V9  =, 

F8.2,9H 

V29 

=  ♦ 

F8.2) 

2024 

FORMAT i 1H0 , 29X , 

1  7HFN/WA 

=  T 

F8.3.9H 

THG9  =, 

F  8 . 3 , 9H 

THG29 

F8.3./1H 

,  29X , 

2  7HETAP 

2  t 

F8.5,9H 

ETATHM= , 

F8.5.9H 

ETAO 

=  t 

F8.5) 

2025 

FORMAT ( 1H 

,  29X , 

1  7P.SFCU 

“  t 

F8.5.9H 

FG  =, 

F  8 ♦ 1 , 9H 

FN 

=  i 

F8. 1  ) 

2026 

FORMAT ( 1H 

,29X, 

1  10HSFC/SFCB 

=F8.5, 15X 

,8HFN/FN0 

=F8. 5  > 

2050 

FORMAT (!H0»26X, 

1  55HTHIS  PROGRAM  WAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UNINC.,/, 

2  1H  , 20X , 17HC0MP0NENTS  BRANCH, 27X, 

3  23HTURB INE  ENGINE  0IV1SI0N,/1H  ,33X, 

A  41HU.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY)  _ 

END 


I 
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SIBFTC  OSDRIV  OECK 

SUBROUTINE  DSDRI V( *) 

DIMENSION  VAR  1 33), PARI  33) , I  SAVE C 33) , CSAVE ( 33 ) ,DSAVE < 33 ) ,PSAVE ( 33) , 
_ _ J _ SSAVE 1331 _ 


COHHON 

/PARAM/ 

ETAR 

,£TAFT  ,ETAFH  ,ETALP 

,ETAC 

f 

1 

ETAB 

,ETATH 

»ETATL 

,PftFT  »PRFH  ,PRLP 

,  PRC 

» 

2 

OPB 

,DPT 

,OPE 

,OPD  ,DPFH  , DPC 

»HPEXT 

9 

3 

LCSL 

,HCSL 

,PCBLNZ 

,PCBLOW,PCBLOB,PCBLC 

,cv 

9 

4 

T4 

,T7 

,  T27 

sETABAB, ETABFOtDPBAB 

,DPBFO 

I 

6HETAR 

,6HETAFT 

,6HETAFH  ,6HETALP  »6HETAC  , 

2 

6HETA8 

,6HETATH 

,AHETATL  ,6HPRFT  .6HPRFH  ,6HPRLP 

,6HPRC 

f 

3 

6H0P8 

,6HDPT 

,6U0PE  ,6H0P0  ,6H0PFH  ,6H0PC 

.6HHPEXT 

9 

4 

6HLCSL 

,6HHCSL 

t 6HPCBLNZ , 6HPCBLUW,6HPCBL0B*6HPCBLG 

,  6HC  V 

9 

5 

6HT4 

,6HT7 

,6HT27  ,6HETABA8,6HETABFD ,6HUPBAB 

.6H0PBFD 

/ 

OATA  1  BASE 

, NUH, WORD 

,GOON,HUW0/0,0,6H  .6HG00N  .6HDELTA  / 

DATA  AMINUS*  PLUS/6HHI NUS  ,6HPLUS  / 

EQUIVALENCE  (PAR,ETARJ 

IFdBASE.GT.O)  GO  TO  1 

IBASE=1 

NUN=0 

_ RETURN _ 

1  IF (WORD. EO. GOON)  GO  TO  6 
IF ( I  BASE .GT . 1 )  GO  TO  4 

I BASE=2 

READ (5,100)  WORD, HOW, COW, SOW 
IF (WORD. EQ. GOON)  GO  TO  7 

00  2  1-1,33 _ _ 

II=I 

2  IF (WORD. EO. VAR  < I ) )  GO  TO  3 
WRI TE (6, 101 )  WORD 

STOP 

3  IF (HOW.EQ.HOWD)  DELTA=COW 
_ IFIHOH.NE.HOHQ)  PELT A=COW»PAK (II) 

PFRCNT  =100.*0ELTA/PAR (II) 

NUM=NUM+1 
IS AVE (NUH )  =  1 1 
CSAVE (NUH )=COW 
OS AVE (NUN )=OELTA 
PSAVE (NUH  )=PERCNT 
SSAVf (NOH)=S0W 
PARSAV=PAR (II ) 

IF (SOW.EO.AHINUS)  GO  TO  4 
PAR (II) =PARSAV+DELTA 
RETURN 

4  IF  ( I  BASE  .GT.2  .OR.  SOH. EQ. PLUS)  GO  TO  5> 

IBASt=3  - . - 

PAR (II )=PARSAV-OELTA 

RETURN 

5  PAR (II) =PAR  SAV 
IBASE=1 

GO  TO  I _ _ 

4  IF ( I  BASE .GT . 1 )  GO  TO  4 

IBASE=2 
HUN=HUN+1 

IF (HUN. GT. NUH)  GO  TO  7 
II  =  1  SAVE (HUN) 

COW  =CS AVE ( HUN ) 

OELTA  =D$AVE(M0R7 
PFRCNT =PSAVE (HUN) 

SOW  =SSAVE ( HUN ) 
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PARSAV-PARUI  ) 

IF ( SOW. fcO. AH INUS )  GO  TO  4 
PAR(  II ) =P ARSAV+DELTA 

_ RETURN _ _  _ _ _ 

7  I  BASF =0 

RETURN! 

ENTRY  OSOOUT 

IF(IBASE.EO.l)  WRITE! 6,200 ) 

IF ( I  BASE .ED. 2 )  WR!TE(6,201)  VAR (II ) ,PERCNT .DELTA 

IF (1BAS£.EQ«3I  WRITE(6.2Q21  VAR ( 1 1 1 g PERCNT  .DELTA _ 

RETURN 

100  FORMAT <A6,4X,A6,4X,E10.0,A6) 

101  FORMAT ( 1H0 , / » 1H0, A6, 32H  NOT  IN  COMMON,  POINT  TERMINATED) 

200  FORMAT { 1H  ,48X, 100BASE  POINT) 

201  FORMAT ( 1H  ,22X,21HBASE  POINT  -  VARYING  ,A6,5H  BY  +  , 

1  F6.1,17H  PERCENT  (DELTA  = ,F7„3, 1HM _ _ 

202  FORMAT (1H  ,22X,21HBASE  POINT  -  VARYING  ,A6,5H  BY  -, 

1  F6.1.17H  PERCENT  (DELTA  =,F7.3,1H>) 

END 


SIBFTC  RAM  DECK 

SUBROUTINE  RAM(AX.ETX) 

FTX=1 .0 

_ IF ( AX  .GT « 1  .0 )  ETX= 1 .0— 0 .075* ( ( AX-1 . 0 ) ** 1 .38) 

IF (AX. GT. 5.0)  ETX=800.0/( (AX**4 1+935.0) 

RETURN 

END 


fIBFTC  COMP  DECK 

SUBROUTINE  COMP ( PRC, FTAC, P I N, TIN, SIN, MIN, POUT, TOUT, SOUT ,H(IUT,IE«) 
POIIT=PKC*PIN 

TOUTP=(PRC«*.28572)»TIN  _ 

DO  1  J=l,10 

CALL  THERMO ( POUT, HOUTP.TOUTP, SOUT P,X,0,X,0) 

IF ( ABS ( SUUTP-S IN ) . LT .0.000 1 *S I N)  GO  TO  2 

1  TOUTP=TOUTP/EXP ( ( SUUTP— S I N ) *4. ) 

IER=  1 

_ ...  _  _ _ 

2  HOUT  =  ( ( H0UTP-H1N ) /ETAC ) +HIN 

CALL  THERM0(P0UT, HOUT, TOUT, SOUT, X,0,X,  1  ) 

I  ER  =  0 

RETURN 

END 
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M8FTC  COMB  'DECK 

SUBROUTINE  COMB i P IN, TOUT , HI N, ETAB , OPB , POUT ,HOUT ,SOUT ,F AROUT ,HV ) 
DIMENSION  ~X{9) 

UZlrJUQ. _ _ 

X ( 3 ) =0.0 

_  P0UT=PIN*(1.0-DPB)  _  __  _ _ 

HV=i (i( ( (-. 459431 7£-19*T0UT)-. 20341 16E-1 5 ) *T0UT+.2783643E-1 1 )*TO(JT 

_ l  +  . 205J501E-07 )*TOUT-. 24531 1 AE-03 ) *TOUT- . 9433296E-01J  *TOUT  +  _ _ 

2  ,"l845537E+05 

CALL  THERMO  (PQUT.HOUTA,  TOUT.  XI.  X2,0,Q.,,P) _ _ _ _ 

F AROUT  = (HOUTA-H IN ) /(HV#ETAB) 

FARS=FAROUT  __ 

‘"CALL  THERMO ( POUT  ,  HOUT  ,  TOUT  ,  SOUT ,  X 1 , 1*  FA ROUT ,  0 ) 

1  DC  LFAR  =  (FARS-*F  AROUT) /FA ROUT  _  _ 

"  CALL  AFQUlR(Xd),  TOUT,  DELFAR.O.,  15.  ,.0001  ,.  95,  TNEW,  ICON) 

GO  TO  (2.4,3)..  I CQM._. _ __ 

2  TOUT  =  TNEW 

HV=( ( ( ( { (-.45943 17E-19#T0UT )-. 20341 16E-1 5) *T0UT+.2783643E~1 1 )*TOUT 

1  +.205l501E-07)*T0UT-.2453liAE-03)*T0UT-.9433296E-01  >*TGUT+ 

2  .18455376+05  _ _ _  _ _ 

CALL  TH£RM0(P0UT,H0UTA,T0UT,X1,X2,6,0. ,0) 

_ FARS=  (HOUTA-H  IN  )/(HV»ETAB  ) _ _ 

GO  TO  1 

3  WRITE(6,100)_ 

4*  CALL  THERMO ( POUT  ,  HOUT  ,  TOUT (SOOT  » XI  *  1 » F AROUT  *0 ) 

RETURN 

100  FORMAT (38H  STOICHIOMETRIC  TEMP  WILL  NOT  CONVERGE) 

ENO _ _________ _ _ _ 


S18FTC  TURR  DECK 

SUBROUTINE  TI)RB  ( P I N  t  HIN  »  SI  N » F  AR  I N » FTAT  IN  tl)HT  IN  *  POUT  ,TUUT  , 

1  HOUT i SHUT  *  I  FR  ) 

_ HOUT  =H IN-DHT I N _ 

HOUTP=HIN-OHT IN/ETATIN 

.eQUT  =PLN.**5  . - 

00  1  J=l,10 

CALI.  THERMO ( POUT  ,HOUTP , TOUT , SOUT  f AMOUT »1,FARIN»1) 

IF ( AB5 ! SOU T-SINJ.LT.0. 000 1 *S I N )  GO  TO  2 

1  pm  IT  =PIN»FXPI  l.,5n3547J»AMnilT)»aSaUIrM.t>Ut(..1.^.9a5912/AMimj. 

1 $ALOG ( POUT/P  IN))  ) 

IER=1 

RETURN 

2  CALL  THERMOfPOUT, HOUT, TOUT, SOUT, X»1,FARIN,1) 

I  £R=0 

_ RETURN  _ _ 

ENO 
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$I8FTC  ABF1RE  DECK  j 

_  SUBROUTINE  ABF  I RF(PINtTOUT.HIN,FARIN?ETABtDPB,WGIN.WF IM.POUT.HOUT, _  { 

1  SOUT,FARQUT,WF,KGTQT,WFTOT»HV)  f 

DIMENSION  Xt9) _ _ _ _ _ _  * 

XC2)=0.0 

X(3)~Q«0 _ 

P0UT=PIN*(1.0-DPB) 

CALL  THERMO! POUT »HOUTA,TOUT . XI , X2tl»FARIN»Q) _ 

HV=(  ( ( ( (  C-.4594317£-19*TOUT)-.2034n6E-15>*TOUT+.2783643E-ll)»TOUT 

1  +  .2051SQlE-07)n0UT-«2453n6E-O31»IQUT-.9433296E-Ol)«TQUT+ 

2  .1845537E+05 

_ FARXg(HOUTA-H!!N)/(HV*ETAB> _ _ 

WF=FARX*WGIN 

_ _ _ 

MFTOT*MF+MFIN 

F ARGUT  =MFTOT/  i  MG IWr VF  IN) _ _ _ 

FARS-FAROUT 

CALL  THERP 0 ( POUT *HOUT t TOUT t SOUT . X I . 1 « FAROUT ,0 1 _ 

t  I  DELFARsJf  ARS— FAROUT I /FAROUT 

\  CALL  AFQUIR1XC  II  »  TOUT  »  DEL  FAR  *0. *  1 5. * *0001  *0.95  »TNEW*  ICON) 

- 5rW7^^3lTicoN — -  | 

2  TQUT=TNEM _ * 

HV=IU 1 1 ( — .4594317E— 194T0UT j 20341 1 6E-1 5 ) *T0UT*.2783643E-1 1 1 *TOUT  !  , 

1  -».20:»1501E— 07  )*TOUT— .2453116E— 03)»T0UT-.9433296E-01  )»TOUT» _  \ 

2  .184S537E+05  * 

CALL  THERMOCPOUT,HOUTAtTOUT,Xl,X2»0*Q.,0) 

F  ARX  =  I HOUTA-H I N ) / CM V*ET AB I 

WF=FARX»WGIN _ _ 

WGTOT=WF+WGlN 
MFT0T*WF-MJF!N 
FARS=MFTOT/ tMGIN-WF IN) 

GO  TO  1 

1  MR IT E <6 » 100) 

.  CALL  THERMO(POUT,HOUT, TOUT, S0UT,X1»I, FAROUT jO) _ 

RETURN 

100  _  FORMAT  C47H  ABFIRE  -  STOICHIOMETRIC  TEMP  MILL  NOT  CONVERGE) 

END 


A1BFTC  NOZ  DECK 

SUBROUTINE  WOZ{PI.PTIW.TTINaSTINaFA«IN>TSOUT«HSOUTI _ 

T  SOUT -T  TIN*  I  } 

_ IM)  1  J«1.!Q _ 

IF CTSOUT.LT. 300.0)  T SOUT *300.0 

CALL  THSRWOIPI»HSOUT»TSOUT»SSOUT»ZtI»FARIWtO) _ 

IF IAB5CS50UT— STSNI .LT»0»©d01*STiN)  SO  TO  2 

1  TSCUT«TS«WT/C£SP|{SS0yT-STIN»*4.l.l_  _ _ _ 

WRITE  56*100)  Pl.TTIN.TSOMT 

2  _ &m*K _ _ _ _ 

100  FORMAT 5 29H  NOZZLE  OIL  MOT  CONVERGE*  PI-.E15.*»7H»  TTIN-.E15.S, 

I  SH*  7SOUT«0E15.A)  _  _  _ _ 

END 
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ilBFTC  ATH062  OECK 

SUBROUTINE  ATMOS  (ZFT,  TM,  SIGMA.  RHQ.  THETA,  DELTA,  CA,  AMU,  K) 
C  THIS  IS  A  SUBROUTINE  TO  COMPUTE  CERTAIN  ELEMENTS  OF  THE  1962. 

C  U.S.  STANDARD  ATMOSPHERE  UP.  TO  90  .  KILOMETERS., _ _ _ 

C  CALLING  SEQUENCE... 

C _ _ _ _ 

C  CALL  ATHOS  »ZF1,  TM,  SIGMA,  RHO,  THETA,  DELTA,  CA,  AMU,  K) 

C _  ZFT_  =  GEOMETRIC  ALTITUDE  (FEET) _ 

C  TM  '  =“  MOLECULAR  SCALE  TEMPERATURE  '(DEGREES  RANKINE) 

C _ LL-SM-J: _ £AUILiO£N' m  TP  .THAT  at  SEAJJVaL _ _ _ _ 

C  RHO  =  DENSITY  ( LB--cC**2-FT **( -4 )  OR  SLUGS-FT«*3) 

C _ THETA  =  RATIO  OF  TEMPERATURE  TO  THAT  AT  SEA  LEVEL _ 

C  DELTA  =  ‘RATIO  OF  PRESSURE  TO  THAT  AT~SEA  LEVEL 

C _ CA _ f  SPEEO  OF  SOUND  (FT/SEC) _ _ 

C  AMU  =  VISCOSITY  COEFFICIENT  ( L8-S£C/FT**2 ) 

0 _ _ _ _ _ 

K  =  1  NORMAL 

_  *  2 ALTITUDE  LESS  THAN  -5000  METERS  OR  GREATER  THAN_90_KM_ 

*  3  FLOATING  POINT  OVERFLOW 

ALL  DATATTiNOnFUNOAMEFTAL  CONSTANTs~ARE  IN  THE' METRIC  SYSfeM~AS 
THESE  QUANTITIES  ARE  DEFINED  AS  EXACT  IN  THIS  SYS TEH,  _ 


:  THE 

RADIUS  OF 

THE  EARTH 

(REFT59 )  IS  THE  VALUE  ASSOCIATED  WITH  THE 

C  1959 

ARDC  ATMOSPHERE  SO 

THAT  PROGRAMS 

CURRENTLY 

USING  THE  LIBRARY 

C  ROUTINE  WILL 

NOT  REQUIRE 

ALTERATION  TO  USE  THIS 

ROUTINE. 

DIMENSION  H8( 10) ,TNB ( 10 ) , DELTAS! 10 ) 

»ALM( 10 ) 

DATA(HBU), 

TMB ( I  ) , 

DELTAS ( I), 

ALM(I), 

1=1,10)/ 

A 

-5.0, 

320.65, 

1.75363E  00, 

-6.5, 

B 

0.0, 

288.15, 

l.OOOOOE  00, 

—6.5 , 

C 

fl.O, 

216.65, 

2.233616-01, 

0.0, 

0 

20.0, 

216.65, 

5.403286-02, 

1.0, 

6 

3270, 

228.65', 

'  8 .566636-03 , 

2.8, 

F 

47  »0,_ 

270.65, 

1.094556-03, 

0.0, 

G 

52.0, 

270.65, 

5.822896-04, 

-2.0, 

H 

61.0, 

252.65, 

1.797186-04, 

-4.0, 

I 

79.0, 

180.65, 

1.0241  6-05', 

'  "b.o. 

J 

88.743, 

180.65, 

1.6223  6-06, 

0.0/ 

DATA  REFT59/2. 08555316  07/ ,  GZ 

/FT8Q665/  , 

A 

AMZ 

228.9644 

/,  RSTAR 

/8. 31432/, 

B 

FTT0KM/3.048E-04 

/,  S 

7TW.V^7 

C 

AMUZ 

/1.2024E-05  /,  CAZ 

/1116.45/, 

b 

~RHOZ 

/O, 076474 

/,  GZENG 

732.T74T/' 

C  CONVERT  GEOMETRIC  ALTITUDE  TO  GEOPOTENTIAL  ALTITUDE 
HFf  *  (REFT59/ (REFT59+ZFT ) ) *2 FT 


C  CONVERT  HPT  AND  2FT  TO  KILOMETERS 


-  - 

Z  =  FTTOKM*ZFT 

H  =  FTTOKM*HFT 

K  =  1 

TMZ  =  TMB( 2 ) 

IF  (H.LT.-5 .O.OR ,Z .GT.90.0)  GO  TO  16 

DO  10  M=1 , 10 

•  - - 

— 

• 

IF  (H-HB(M))  11,12,10 

10 

CONTINUE 

GO  TO  16 

11 

M  =  M-l 

12 

DE'LH  =  H-HB(M) 

IF  (ALM(M).EO.O.O)  GO  TO  13 

TMK  =  TMBiM(-*-ALM(M}*DELH 


C  GRADIENT  IS  NON  ZERO,  PAGE  10,  EOUATION  1.2.10- C  3  J 

DELTA  =  DELTAB(M)*( ( TMB ( M) / TMK »** { GZ*AMZ/ ( RStAR*ALM (M T)» F 
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GO  TO  H 
13  TMK  «  THB(M) 

GRADIENT  IS~ZERO,  PAGE  10,  EQUATION  I 

. -BELLA. 


2.10-CA) 

DELTAS (H 1  «£XP (-GZ*AHZ*DELH/  Ift£TAR»THBiNllJ- 


14  THETA  =«  TMK/THZ 

..  ilMA_5_&ELlA/THETA  _ _ 

ALPHA  *  SORT ( THETA**3 ) *( <  TMZ+S ) /< THK+S ) ) 

CONVERSION.  TO  ENGLISH  UNITS  _ _  .  _ 

TH  *  1.6*TMK 

_ RHP  s  RHf!Z»SIGHA/GZENG _ 


CA  =  CAZ*SQRT ( THETA ) 

AMU  =  AMUZ*ALPHA/GZENG 
CALL  OVERELI J) 

_ GO  TO  (15,17),  J 
15  K  =  K+2 

GO  TO  17 _ 


16 

17 


K  =  2 

RETURN 

END 
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SI8FTC  PROCOM  DECK 

SUBROUTINE  PROCOM ! F ARX, TEX, CSEX. AKEX, CPE  X, REX, PHI ,H6X) _ 

'if  (FARX.LE. 0.06  7623)  GO  TO  1  '  . . 

FARX^Q.067623 _ 

WRI TE  <6, 101 ) 

1  _  IF (TEX. GE. 300. I  GO  TO  2.  ___  _ 

TEX *3 00. 

WRITE (6 1 102 )  _  _  _ 

2  IF (TEX.LE.4000.  )  GO  TO  3 

TEX=4Q00.  _ _ _ _ 

WRITE (6, 103 1 

3  IF  IF  ARX  .GE  .0.0 )  GO  TO  4 
FARX=0.0 

WRI TE (6  *  104 ) 

C  AIR  PATH 

4  CPA  =!({!I(1.0115540E-?5*TEX-1.4526770E-21)»TEX _ 

1  ♦7.62I5t67E-I8)*TEX-1.5128259,fe-14j*fEX“6.7lV8376E-I2'J 

2  *TEX+6.5519486E-08)*TEX-5.1536879E-05)*TEX+2. 502005  IE-01 
HEA=  ( ( ( (  ( '( ! 1.2644425E-26*TEX-2. 07 52522 E-22)  *TEX 

1  +1.2702630E-I8)*TEX-3. 025651 8E-1 5 )*TEX-1 .6794594E-12 ) *TEX 

2  +2.1839826E-08)*TEX-2.5768440E-05)*T£X+2.5020051E-01) «TEX 

3  -1.76588B6F»00 _ _ 

SEA=+2.5020051E-01*AL0G(T6X)+1 { ( ( ( ( 1 .4450767E-26«TEX 

1  -2.4211288E-22)*TEX+1.5243153E-18)*TEX-3.7820648E-15)«TEX 

2  -2.2392790E-12 )*TEX+ 3.2759743E-08 )*T£X-5.1576879E-05)*TEX 

3  +4 .5432  300E-02 
IF(FARX.LE.O.O)  GO  TO  5 

C  FUEL /AIR  PATH _ , _ 

fPF  =(((({ (?.26787lOE-25*Ttx-1.3^35668E-20)*TEx 

1  +1 .02129136-16 ) *T EX-4. 205 1104E-1 3)*TEX+9.9686793E-10)»TEX 

2  -I.  377 190 IE-06  )*TEX  +  1.2258630E-(f3  )*T£X+7.3816638E-02 
HEF=  { (  (Ml  !9„0848388E-26*TEX-1  .9050949E-2I  )*TEX 

1  4-1. 702I525E-1 7 >*TEX-8. 41022086-14 >*TEX+2.4921698E-10) «TEX 

2  —4 .5906332E-07 )*TEX+6.1293150E-04)#TEX+7.3816638E-02) 

3  *T£X+3.058l 53OE+0I 

SEF=+7 .3816638E-02*AL0G ( TEX ) + ( ( ( ( ( ( 1 .0382670E-25*TEX 

1  -2.2226I18E-21 ) *TEX+2.0425826E-17 )*TEX-1 .0512776E-1 3 ) *TEX 

2  +3 .3228928E-10 ) *T EX-6. 8 859 505 6-0 7 ) 4TEX+1 .2258630E-03 )»TEX 

3  +6. 4833986-01 

5  CPEX=(CPA+FARX*CPF ) / ( 1 ,+FARX ) 

HEX  =  (HEA+FARX*HEFJ/(1.+I:ARX) 

PHI=(SEA+FARX*SEF)/( l.+FARX) 

AM W =28 .9 7-. 9461 86 *F  ARX 
REX=1.986375/AMH 
AKEX=CPEX/ ( CPEX-REX ) 

_ CSEX=SQRT!AKEX»REX»TEX»25031.37) _ 

RETURN 

101  FORMAT ( 1H0,64HINPUT  FUEL-AIR  RATIO  ABOVE  LIMITS,  IT  HAS  BEEN  RESET 
2  TO  0.067623) 

102  FORMAT! 1H0,35HPR0C0H  INPUT  TEMPERATURE  BELOW  300.) 

103  FORMAT ( 1H0 , 36HPR0C0M  INPUT  TEMPERATURE  ABOVE  4000.) 

104  FORMAT! 1H0 , 38HPR0C0M  INPUT  FUEL-AIR  RATIO  BELOW  ZERO) 

- FND - 
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SIBPTC  THERMO  DECK 

_ SUBROUTINE  THERMO(PX«HX ,TX,SX, AMX . L ,FAR  ,K ) 

FX=0» 

_1F(L*£Q.1)FX*F-AR _ _ _ 

IF(K.EQ.l)  GO  TO  I 

_ CALL  PRQCOM(FX,TX,CSt AK,CP,R,PHI ,HX) 

GO  TO  3 

1  TX=4. *HX  _ _  _ 

00  2  1=1, i5 

_ CALL  PR0C0H(FX,TX,C5,AK,CP,R,PH1,H) 

DELH=HX-H 

_ IFUBStPELH )  «  LE  .0 .00001»HX)  GO  TO  3 

2  TX=TX+4.*DELH 

_ WRITE  (6, 100) _ _ 

3  SX=PHI-R*ALOG(PX ) 

. AHX=1«986375/R _ 

RETURN 

100  FORMAT I2SH0N0  CONVERGENCE  IN  THERMO) 

END 


\0  Oi®  -j  ,  O'  .\j>  ^  u)  m  -  •-  0,0  o  n  0,0  OjO  r>  o  o  o  r> 
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$IBFTC  AFOUIR  DECK 

SUBROUTINE  AFOUIR (X ,A I  NO,  DEPEND, ANS , AJ , TOL ,OIR , ANEW, ICON )_ 
DIMENSION  X  (9 ) 

C  X(li=NAM£  UP  ARRAY  TQ  USE _ _ _ 

C  A I NO  =  I NDE PEND ANT  VARIABLE 
C  UEP£NO=  DEPENDANT  VARIABLE 
C  ANS=ANSWEK  UPON  WHICH  TO  CONVERGE 
C  AJ=MAX  NUMBER  OF  TRYS 
C  U)L=PERCENT  TOLERANCE  FOR  CONVERGENCE 

C  D1 8=0 1 RECT I ON  AND  PERCENTAGE  FOR  FIRST  GUESS  _ 

ANEW=CALCUL ATED  VALUE  OF  NEXT  TRY  AT  INDEPENDANT  VARIABLE 
1C0N=C0NTR0L  =1  GO  THRU  LOOP  AGAIN 

=  2  YOU  HAVE  REACHED  THE  ANSWER 
=3  COUNTER  HAS  HIT  LIMITS 
X(2)=C0UNTER  STORAGE 

XI3)=CH00SES  METHOD  OF  CONVERGENCE _ 

X  <4  )  =THI RD  DEPEND  VAR 
XI5 )=THIRD  IND  VAR 
X (6 ) =SECOND  DEPEND  VAR 
X<>)=SeCOND  INO  VAR 
X  S8  )  =FIRST  DEPEND  VAR 

X ( 9  )=F I RST  IND  VAR _ _ 

X(3>  MUST  BE  ZERO  UPON  FIRST  ENTRY  TO  ROUTINE 


Y=Q. 

I F  ( AN  S )  1 »  2 » 1 
DEP=DEPEND-ANS 

_ mLANi.=mL?.ANs _ 

GO  TO  3 
DEP=OEPEND 
TOLANS=TOL 

IF(ABS(DEP)-TOLANS)5»5*4 
IF(X{2)-AJ)B,8,7 

_ AN£W  =  AiNp _ 

X  ( 2  )  =0  . 

IC0N=2 
RETURN 
ANEW=Y 
XC2)=XI2)+1. 

ICQN^l _ 

RETURN 
ANEW=Y 
X ( 2 ) =0  « 

IC0N=3 
RETURN 

IF (X(3) >9,9,12 
***  FIRST  GUESS  USING  DIR 
X(3)=l. 

X  1 8  )  =0  E  P 
X  <9  )  =  A I ND 
>F ( A  I ND ) 1 0  1 1 1 5  1 0 

10  Y=D1R»A1N0  _ 

GO  TO  6 

11  Y=DIR 
GO  TO  6 

12  IF(X(3)-1. >13,13,16 
C  ***  LINEAR  GUESS 

13  X(3)=2. 

jtt6>-=oep  - 

X  1 7 )  =  A1ND 

IFIXC8>-XI6))14,9,14 
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14  IF (X(9)-X(/))15,9,15 

18  A=(X(9J-X(7))/(X(b)-X(61) 


Y=X (91-A3X (81 

IF (ABS(  10.»X (9  1 l-ABSJY 1)9^9, fc_ 


c 

16 

17 

18 

OtJAOKAT  I  C  GUESS 

X (4 ) =OEP 

X  (9 )  =  AINO 

IF(X(7)-X(5))lb,17,lb 

1F(X(6)-X<4) ) 13,9,13 

1KXI61-XI41  119,13.19 

— - 

- 

19 

!F  ( X ( 9 )-X ( 5 1  123,20,23 

20 

IF  (X(81-X(4) 121,22,21 

21 

X  (9 1  =  X (7  1 

X  ( 8  )  =X  ( 6  1 

GU  TO  13 

22 

X  (9  1  =X ( 7  ) 

X ( 8  )  =X (6  J 
X  (  3  1  =  1  * 

I  F ( X ( 9 ) ) 10, 1 1 »  10 


23 

24 

1F(X(61-X(4))24,21,24 

F=(X(6)-X(4))/(X(71— X{91) 

A=(X(8)-X(4)-P*(X(9)— X(5)))/((X(9I-X(7))*IX(9)-X(5))J 

„=F-A$(X(5)+X(71) 

C=X(4)+X(5)*(A*X(7)-F) 

I F { A 1 242 « 240,242 

240 

IF  (8)241 ,7,241 

241 

Y=-C/B 

GO  TO  37 

242 

IF (8)247,243,247 

243 

IF  (0245,244,245 

244 

Y=0. 

GO  TO  37 

249 

G=-C/A 

IF (G 17 ,7 ,246 

246 

Y- SOKT (G) 

YY=-SOkT (G  1 

GO  TO  270 

247 

IF(C)249,248,249 

248 

Y=-B/A 

YY=U. 

‘  GO  TO  2 70 

249 

D=4.*A*C/B**2 

IF ( l.-D) 13,25,26 

29 

Y=-B/(2.*A) 

GO  TO  37 

26 

F  =S(JRT  1  l.-U) 

27 — 

Vr=(-TT/T’2.42T)4nT+n - 

YY=(-B/(2.*A» )*( l.-E 1 

270 

J=4 

0EFMIN=ABS(X(4) 1 

DO  29  1=6, 8, 2 

IF  (DEEM IN-ABS ( X ( I 11)29,29,28 

n - t=t 


UEPM !N=ABS ( X ( i  |  ) 


29 

CONTINUE 

X=J+1 

IF ( (X(K)-Y )*(X(K)-YY) 132,32,30 

30 

IF (ABS(X(K)-Y )-A8S<X(K)-YY 1 137,37,31 

TT~ ' 

Y  =YY 

GO  TO  37 

32 

1 F ( J-6 133,34,34 

43 


$  INPUT  TWIOO.i 
$EOF 


SOATA 

JINPUT  ALTP=0.0,AM=0.0tWAENG=115.fCV=0.985tPRC=12.5,ETAC=0.87, 
ETATH=0.89fT4=2160.,0PE=0.01,ETAB=0.98,PCBLC=0.0Ie0PB=0.02, 

PCBLT4=0.01,ITITLE=1S  _ 

TURBOJET  -  SINGLE-SPOOL  «HQ  A/B) 


JEOf 
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TURBOJET  -  SINGLE-SPOOL  (NO  A/8) 


ALTP  = 

0. 

AM  a 

0. 

VA 

0. 

DELTO  = 

0. 

ETAR  = 

1.00000  cs 

1116.45 

HPEXT 

=  0* 

LCSL  = 

0. 

HCSL 

«  0* 

PCBLOH«  0. 

PCBLOBa 

0. 

PCBLNZ 

a  0. 

PCBLC 

=  0.01000 

PCBLT4= 

0.01000 

PCBLHP 

a  0. 

PCBLLP= 

0. 

PROA 

=  12.500 

BPR  « 

0. 

HAENG 

=  115.00 

PRFT 

=  1.0000 

ETAFT  = 

1.00000 

HA24 

=  0. 

HA26  = 

-0. 

PRFH 

a  1.0000 

ETAFH  a 

1.00000 

WA2 1 

=  115.000 

BLLCSLa 

0. 

PRLP 

*  1.0000 

ETALP  = 

1.00000 

HA  22 

a  115.000 

8LHCSLa 

0. 

PRC 

=  12.5000 

ETAC  « 

0.87000 

HA  3 

a  113.850 

DPD 

a  0* 

DPFH  = 

0. 

OPC 

a  0. 

PRESSURES  IN  ATMOSPHERES 

PI 

*  1.000 

T1 

518.67 

HI 

=  123.92 

P2 

•>  1.000 

T2  » 

518.67 

H2 

=  123.92 

P21H 

a  1.000 

T21 

518.67 

H21 

a  123.92 

P21L 

=  1.000 

P22L 

a  1.000 

T22 

518.67 

K22 

a  123.92 

BLOH  a 

0. 

P22 

a  1.000 

1135.75- 

BLOB  - 

0. 

P3 

=  12.500 

T3 

H3 

a  274.91 

BLC 

1.150 

P4 

a  12.250 

T4  * 

2160.00 

H4 

a  560.29 

HG4  a 

115.686 

DPB 

«  0.0200 

ETAB  « 

0.98000 

FAR4 

*  0.01612 

HF4 

1.8355 

P41 

a  12.250 

T41 

2150.64 

H41 

a  557.48 

BLT4  a 

1.150 

?5 

*  3.264 

T5 

1623.58 

H5 

a  408.86 

HG41  a 

116.836 

PRTH 

=  3.7526 

ETATH  » 

0.89000 

DPT 

«  0. 

P51 

=  3.264 

T51 

1623.58 

H51 

a  408.86 

BLHP  a 

0. 

P55 

a  3.265 

T55 

1623.58 

H55 

a  408.86 

HG51  « 

116.836 

PRTL 

=  0.9998 

ETATL  a 

1.00000 

DPE 

a  0.01000 

P56 

=  3.265 

T56 

1623.58 

H56 

=  408.86 

BLLP  » 

3. 

P6 

=  3.232 

T6 

1623.58 

H6 

a  408.86 

HG56  a 

116.836 

P7 

a  3.232 

T7  a 

1623.58 

H7 

«  408.86 

HG7 

116.836 

P8 

a  3.232 

T8  « 

1623.58 

H8 

a  408.86 

bLnoz  « 

0. 

V9 

a  2342.97 

TS9 

1201.48 

HS9 

»  295.82 

HG8 

116.836 

P24 

r. 

T24 

0. 

H24 

*  0. 

P26 

3  0# 

T26 

0. 

H26 

a  0. 

P27 

3  0# 

T27 

0. 

H27 

*  0. 

HG27  = 

-0. 

P28 

=  0. 

T28  = 

0. 

H28 

*  0. 

HG28  a 

-o# 

V29 

»  0. 

TS29  = 

0. 

HS29 

-  0. 

FAR41 

a  0.01596 

FAR51  = 

0.01596 

FAR56 

a  0.01596 

*  '  FAR7~ 

"^D.OTS^iT- 

FAR8  a 

0. 61536 

TAR  2  7" 

HV 

=  17360.2 

HV7 

-0.0 

HV27 

»  -0.0 

cv 

a  0.98500 

V9 

2342.97 

V29 

»  0. 

FN/HA  = 

73.984 

THG9  » 

73.984  TWGZ9  * 

-0. 

ETAP  « 

0. 

ETATHM- 

0. 

ETAO  » 

0. 

mum i 

72 — fR - * 

THIS  PROGRAM  HAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UNINC. 
COMPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 

U.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY  '  ‘  ~  ~ 
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SDATA 

$INPUT  ALTP=0.0f  AN=:0.0f  WA£NG=11 5. ,CV=0. 985  »PRC=12.5tETAC=0.87t 

ETATH=0.89»T4=2160.,DPE=0.01,ETA8=0.98,PCBLC=0.01,DPB=0.02, 

IDEL=1» 

PCBLT4=0.01,!TITLE=1$ 

DESIGN  DERIVATIVE  -  TUR80JE7  -  SINGLE-SPOOL  (NO  A/B) 


ETAC 

DELTA 

0.01 

PRC 

PERCNT 

0.02 

CV 

DELTA 

0.015 

T4 

DELTA 

100. 

GOON 

$EQF 

49 
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DESIGN  DERIVATIVE  -  TURBOJET  -  SINGLE-SPOOL  INf.l  A/B) 

BASE  POINT 


ALTP  = 

0 

Art  = 

0. 

VA 

0. 

DELTO  = 

0. 

ETAR  = 

1.00000 

CS 

1116.45 

HPEXT 

0. 

LCSL 

= 

0. 

HCSL 

= 

0. 

PCBLOl*= 

0. 

PC6LGB 

,S 

0. 

PCBLNZ 

,= 

0. 

PCBLC 

= 

0.01000 

PCBLT4 

■  = 

0.01000 

PCBLHP 

= 

0. 

PCBLLP= 

0. 

PROA 

= 

12.500 

BPR 

= 

0. 

HA  ENG 

= 

115.00 

PRFT 

s 

1.0000 

ETAFT 

s 

l.GOOOO 

k'A24 

= 

0. 

HA26  = 

-0. 

PRFH 

= 

1.0000 

ETAFH 

= 

1.00000 

WA21 

= 

115i000 

BLLCSL= 

0. 

PRLP 

= 

1.0000 

ETALP 

= 

1.00000 

HA  22 

= 

115.000 

8  LHCSL= 

*0. 

PRC 

= 

12.5000 

ETAC 

= 

0.87000 

HA3 

= 

113.850 

I 

DPD 

=: 

0. 

DPFH 

= 

0. 

OPC 

X 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

= 

1.000 

T1 

= 

518.67 

HI 

= 

123.92 

P2 

= 

1.000 

T2 

= 

518.67 

H2 

= 

123.92 

P21H 

= 

1.000 

T21 

= 

518.67 

H21 

123.92 

P21L 

= 

1.000 

P2.2L 

= 

1.000 

T22 

= 

518.67 

H22 

= 

123.92 

BLOW  = 

0. 

P22 

= 

1.000 

BL113  = 

0. 

P3 

= 

12.500 

T3 

= 

1135.75 

H3 

= 

274.91 

BLC  = 

1.150 

P4 

= 

12.250 

T4 

= 

2160.00 

H4 

= 

560.29 

V!G4  = 

115.686 

DPB 

= 

0.0200 

ETAB 

= 

0.98000 

FAR4 

= 

0.01612 

'.IF  4  = 

1.8355 

P41 

= 

12.250 

T41 

= 

2150.64 

H41 

= 

557.48 

BLT  4  = 

1.150 

P5 

= 

3.264 

T5 

= 

1623.58 

H5 

= 

408.86 

WG41  = 

116.836 

PRTH 

3.7526 

ETATH 

= 

0.89000 

DPT 

= 

0. 

P51 

=: 

3.264 

T51 

= 

1623.58 

H51 

= 

408.86 

8  LHP  = 

0. 

P55 

= 

3.265 

T55 

= 

1623.58 

H55 

= 

408.86 

WG5 1  = 

116.836 

PRTL 

0.9998 

ETATL 

= 

1.00000 

DPE 

= 

0.01000 

P56 

= 

3.265 

T56 

= 

1623.58 

H56 

= 

408.86 

BLLP  = 

0. 

P6 

= 

3.232 

T6 

= 

1623.58 

H6 

= 

408.86 

UG56  = 

116.836 

PV 

= 

3.232 

T7 

= 

1623.58 

H7 

= 

408.86 

HG7 

116.836 

P8 

= 

3.232 

T8 

= 

1623.58 

H8 

408.86 

BLNUZ  = 

0. 

V  9 

=: 

2342.97 

TS9 

= 

1201.48 

HS9 

= 

295.82 

UGB 

116.836 

P24 

= 

0. 

T24 

= 

0. 

H24 

0. 

P26 

= 

0. 

T26 

= 

0. 

H26 

= 

0. 

P27 

= 

0. 

T27 

= 

0. 

H27 

= 

0. 

WG27  = 

-0. 

P28 

= 

0. 

T28 

= 

0. 

H28 

= 

0. 

liG28  = 

-0. 

V  29 

= 

0. 

TS29 

= 

0. 

HS29 

0. 

FAR4I 

= 

0.01596 

FAR51 

s : 

0.01596 

FAR56 

— 

0.01596 

FAR7 

= 

0.01596 

FAR8 

= 

0.01596 

FAR27 

=  - 

-0.00000 

KV 

= 

17360.2 

HV7 

= 

-0.0 

HV27 

= 

-0.0 

CV 

= 

0.98500 

V9 

= 

2342.97 

V29 

= 

0. 

Fi'.'/DA  = 

73.984 

THG9  - 

73.984 

THG29  = 

-0. 

ETAP  = 

0. 

ET/;THH= 

0. 

ETAO  = 

0. 

SFCU  = 

0.77666 

FG 

8508. 

2 

Fi>! 

8508.2 

SFC/SFCB  =  1.00000 

FM/FNB  = 

1.00000 

THIS  PROGRAM  WAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UrllNC. 
COMPONENTS  BRANCH  TURBIHE  ENGINE  DIVISION 

U.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY 
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AFAPL-TR-68-88 


DESIGN  DERIVATIVE  -  TURBOJET  r  SINGLE-SPOOL  (NO  A/B) 

B/;S6  POINT  -  VARYING  ETAC  BY  +  1.1  PERCENT  (DELTA  =  O.OIO) 


ALTP  = 

0 

•  AM  = 

0. 

VA 

0. 

OELTO  = 

0; 

ETAR  = 

1.00000 

CS 

1116.45 

HPEXT 

S 

0. 

LCSL 

=  0. 

8CSL 

0. 

PCBLOV 

1  — 

0; 

PCBLUB 

=  0. 

PCBLriZ 

= 

0. 

PCBLC 

= 

0.01000 

PCBLTA 

=  0.01000 

PCBLHP 

= 

0. 

PCRLLP- 

0. 

PROA 

= 

12.500 

BPR 

=  0. 

1)A  ENG 

= 

115.00. 

PRET 

— 

1.0000 

ETAFT 

=  i. ooooo 

WA24 

= 

0. 

HA26  = 

-0. 

PRFH 

& 

1.0000 

ETAFH 

=  1.00000 

WA2-1 

= 

115.000 

RLLCSL= 

o; 

P.RLP 

— 

1.0000 

ETALP 

=  1. ooooo 

WA22 

= 

115.000 

BLHCS L= 

0. 

PRC 

= 

12.5000 

ETAC 

=  0.88000 

WA3 

= 

113.850 

DPO 

'= 

0. 

OPFH 

=  0. 

DPC 

= 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

= 

1.000 

T1 

=  518.67 

HI 

= 

123.92 

P2 

= 

1.000 

T2 

=  518.67 

112 

= 

123.92 

P21H 

= 

1.000 

T21 

=  518.67 

H21 

123.92 

P21L 

= 

1.000 

P22L 

= 

l.ooo 

T22 

=  518.67 

H22 

= 

123.92 

tj  LOW  = 

0. 

P22 

= 

1.000 

BLOB  = 

0. 

PB 

= 

12.500 

T3 

=  1128.96 

H3 

= 

273.19 

BLC 

1.150 

PA 

= 

12.250 

T4 

=  2160.00 

H4 

= 

560.35 

NG4  = 

115.697 

OPB 

r: 

0.0200 

ETAB 

=  0.98000 

FaR4 

0.01622 

WF4  = 

1.8470 

P41 

= 

12.250 

T41 

=  2150.58 

H41 

= 

557 .53 

BLT4  = 

1.150 

P5 

= 

3.323 

T5 

=  1629.81 

H5 

= 

410.61 

WG4  r  = 

116.847 

PRTH 

= 

3.6861 

ETATH 

=  0.89000 

DPT 

= 

0. 

P51 

= 

3.323 

f  51 

=  1629.81 

H51 

= 

410.61 

BLHP  = 

0. 

P55 

= 

3.324 

T55 

=  1629.81 

H55 

= 

410.61 

UG51  = 

116.847 

PRTL 

s 

0.9998 

ETATL 

=  1.00000 

DPE 

OiOlOOO 

P56 

= 

3.324 

T56 

r  1629.81 

H56 

= 

410.61 

BLIP  = 

0. 

P6 

= 

3.291 

To 

=  1629.81 

H6 

= 

410.61 

UG56  = 

116.847 

P7 

= 

3.291 

*T  7 

=  1629.81 

H7 

410.61 

WG7 

116.847 

PB 

= 

3.291 

T8 

=  1629.81 

H8 

= 

410.61 

BLNOZ  = 

0. 

V9 

= 

2362.84 

TS9* 

=  1200.73 

HS9 

=  ' 

295 .65 

WG8  = 

116.847 

P24 

= 

0. 

T24 

=  0. 

H24 

= 

0. 

P26 

= 

0. 

T26 

0. 

H26 

= 

0. 

P2Y 

0. 

T27 

=  *0,i 

H27 

= 

0. 

VJG27  = 

-0. 

P2« 

= 

0. 

,T28 

=  b. 

H28 

= 

0. 

WG28  = 

-0. 

V  29 

= 

0. 

TS29 

=  0. 

HS29 

= 

0. 

FAR  41 

z: 

0.01606 

FA  P.51 

=  0.01606 

FAR56 

= 

0.01606 

FaR7 

= 

0.01606 

FAR8' 

=  0.01606 

FAR27 

=  * 

-0.00000 

HV 

= 

17360.2 

HV7 

=  -0.0 

IIV27 

= 

-0.0 

cv 

= 

0.98500 

V9 

=  '2362.84 

V29 

= 

0. 

Fi'!/HA  = 

74.619  THG9  = 

74.6] 

L9 

THG29  = 

-0. 

ETAP  = 

0. 

ETATHM= 

0. 

ETAO  = 

0. 

SFCU  = 

0.77487  FG  = 

8561. 

,2 

FM  = 

8581.2 

SFC/SFCI 

i»  =  0.99770 

fn/fnb  =• 

1.00858 

THIS  PROGRam  WAS  DEVELOPED  oY  FUTILITTY  AIRCRAFT t  UNIilC. 
COMPONENTS  LRAi'CIi  TURBINE  ENGINE  DIVISION 

U.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY 
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AFAPL-TR-68-88 


DESIGN  DERIVATIVE  -  TURBOJET  -  SINGLE-SPOOL  (Mi  A/S) 

BASE  POINT  -  VARYING  ETAC  BY  -  1.1  PERCENT  (DELTA  =  O.OIO) 


ALTP  = 

0.  hi-  = 

0. 

VA 

0.. 

DELTO  = 

0.  HTA.k  = 

1.00000  CS  = 

1116.45 

HPEXT 

= 

0. 

LCSL  =0. 

HCSL 

=  0. 

PCBLOVi 

f  = 

0. 

PCBLOB=  0. 

PCBLN2 

=  0. 

PCIiLC 

= 

0.01000 

PCBLT4=  0.01000 

PCBLHP 

=  0. 

PC8LLP= 

0. 

PROA 

z: 

12.500 

BPK  =  0. 

ha  eng 

-  115.00 

PRFT 

= 

1.0000 

ETAFT  =  1.00000 

UA24 

=  0. 

r!A26  = 

-0. 

PRFH 

= 

1.0000 

ETA FH  =  1.00000 

HA  21 

=  115.000 

BLI.CSL= 

0. 

PRLP 

= 

1.0000 

ETALP  =  1.00000 

1/A22 

=  115.000 

RLHCSL= 

0. 

PRC 

ss 

12.5000 

ETAC  =  0.66000 

HA  3 

=  113.850 

i 

DPI) 

= 

0.  ' 

OPFH  =0. 

DPC 

=  .0. 

PRESSURES  IN  ATOpSPHERF.S 

PI 

2= 

1.000 

T1  =  3i'8.67 

HI 

=  123.92 

P2 

= 

1.000 

T2  =  518.67 

H2 

=  123.92 

P21H 

= 

1.000 

T21  =  518.67 

H21 

=  123.92 

P21L- 

= 

.  1.000 

■  P22L 

= 

1.000 

T22  =  318.67 

H22 

=  123.92 

i-,  LUO  = 

0. 

P22 

= 

1.000 

BLIis  = 

0. 

P3 

= 

12.500 

T3  =  11^2.70 

H3> 

=  276.67 

11 LC 

1.160 

PA 

= 

12.2^0 

T4  =  2160.00 

H4 

=  560.22 

1.-G4  = 

115.674 

DPS 

= 

0.02 00 

ETArf  =  0.98000 

FAP.4 

=  0.01602 

0F4'  = 

1.8238 

P41 

= 

12.250 

T41  =  2150.69 

H41 

=  557.^3 

BLT4  = 

1.150 

P5 

= 

3.205 

T3  =  1617.20- 

H5 

=  407.06 

0G61  = 

116.824 

PRTH 

= 

3.0222 

ETA TP  =  0.89000 

DPT 

=  0. 

P51  - 

= 

3.205 

T51  =  1617.20 

H31 

=  407.06 

ii  LHP  = 

0. 

P55 

= 

3.205 

T55  =  161-7.20 

H55- 

=  407.06 

l!G51  = 

116.824 

PKTL 

= 

0.9998 

ETATI.  =  1 .00000  . 

OPE 

=  0.01000 

H56 

= 

3.205 

T56  =  1617.20 

H56 

=  407.06 

.lil.LP  = 

0. 

P6 

= 

3.173 

T6  =  1617.20 

HA 

=  407.06 

i<«;56  = 

116.824 

P7 

= 

3.173 

T7  =  1617.20 

H7 

=  407.06 

KG  7 

116.824 

P8 

= 

3.173 

TS  =  1617.20 

hi! 

=  407.06 

IJ  L  '•OX.  = 

0. 

V9 

= 

.2322.44 

TS9  =  1202.26 

KS9 

=  296.00 

«G8  = 

116.  ‘*24 

P24 

- 

0. 

724  =  0. 

H24 

=  0. 

P26 

0. 

T26  =  0. 

H26 

=  0. 

P27 

= 

0. 

T27  =  0. 

H27 

=  0. 

W27  = 

-0. 

P2S 

= 

0. 

T28  =  0. 

H28 

=  0. 

VG2R  = 

-0. 

V29 

= 

0. 

TSZV  =  0. 

HS29 

=  0. 

FAR  41 

= 

0.01506 

FARSI  =  0.01586 

FAR56 

=  0.01536 

FAR7 

= 

0.01586 

FARO  =  0.01566 

FAR27 

=-0.00000 

HV 

= 

17360.2 

HV7  =  -0.0 

HV'27 

=  -0.0 

CV 

= 

0.98300 

V9  =  2322.44 

V29 

=  0. 

Frt/i'A  = 

73.328  TNG 9  = 

73.328  TFG29  = 

-0. 

5  TAP  = 

0.  tT«TMi'i= 

0. 

ETAU  = 

0. 

SFCU  = 

0.77059  FG 

6432 . 

.  b  FN  = 

0432.1: 

SFC/SFCB  =  1.0024.-, 

FH/FC5B  = 

0.99114 

THIS  PROGRAM  '/'.S  DfcVfcLOPEi)  P.Y  Rl7  I L  I T  Y  A  IRC.*  APT  ,  tlMsC. 
COMPONENTS  dIUvNCP  TORRI.l:  E  'GI  »F  DIMISIOr 

0. S.  AIR  FURCfc  AERO  PKOPULSIUi-  L/ iOf./ TORY 
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DESIGN  -DERIVATIVE  -  TURBOJET  -  SINGLE-SPOOL  (i.U 
BASE  POINT-  -  VARYING  PRC  BY  +  2.0  PERCENT  (l)ELTA  =  0.250) 


ALTP  = 

0. 

At.  = 

-OS 

VA  * 

0. 

DEL TO  = 

0. 

ETAR  = 

i .ooooo 

CS  = 

IU’6.43 

HPEXT 

S 

0. 

LCSL  = 

0. 

HCSL  = 

0. 

POBLUE 

1  = 

0. 

PCBLOB= 

(5. 

PCBLAZ= 

0. 

PCSLC 

- 

6.01000 

PCBLT4= 

0  ..'01000 

PCBLHP= 

0. 

pc;/llp= 

0. 

PRUA. 

S! 

a 2. 750 

SPR  = 

!0. 

HAENG  = 

113.00 

PKFT 

- 

1.0000 

ETAFT  = 

l,;i  00000 

5JA24  = 

0. 

I.*a26  * 

-0. 

PRFH 

1.0000 

ETAFfr  - 

1. 00000 

PA21  = 

115.U00 

11 1.LCSL= 

0. 

•PULP 

= 

1.0000 

ETALP  = 

1 . 00000 

HA  2  2  = 

115.000 

i.LHCSL= 

0. 

PRC 

= 

12.7500 

ETAC  = 

0.87000 

HA  3  = 

113.850 

OPi) 

- 

Oi  t 

DPFH  = 

6. 

MFC 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

1.000 

T1 

318.67 

HI 

123.92 

P2 

1.000 

T2 

518.67 

H2 

123.92 

P21H 

1.000 

T21  = 

518.67 

H21 

123.92 

P21L 

= 

1.000 

P22L 

= 

1.000 

T22 

5i8.67 

U22 

123.92 

6  LOU  = 

0. 

P22 

= 

1.000 

BLOB  = 

0. 

P3 

= 

12.750 

T3 

1142.29 

H3  = 

276.56 

->IX 

1.150 

P4 

= 

12.495 

T4 

2160.00 

H4 

560.22 

.«G4  = 

115.674 

UPB 

= 

0.0200 

ETAIi  = 

0.98000 

FaK4  = 

0.01603 

’■•F6  = 

1.8243 

PAI¬ 

= 

12.495 

T41 

2150.69 

H4J  = 

357..4S 

BI.T4  = 

I  •  1 5(i 

RS! 

= 

3.273 

-T3  - 

1617.37 

to  - 

407.17 

1-G4 1  = 

116.824 

PRTH 

= 

3. 81  Ml 

67/iTH  = 

0.89000 

OPT 

0. 

P51 

= 

3.273 

T5X  = 

1617.57 

P31-  = 

407 s 17 

.’.LHP  = 

0. 

P55- 

= 

3.273 

T  56  = 

lol7.58 

1-55  = 

407.17 

uG5i  = 

116.824 

PKTL 

= 

C.9998 

ETATL  = 

1.00000 

OPE 

'0.01000 

P56 

= 

3.273 

T56 

1617.58 

if  3  6  = 

407.17 

■sl.I.P  = 

0. 

P6 

= 

3.240 

T6  = 

1617.38 

!!6  = 

407.17 

KG56  = 

116.824 

PV 

= 

3.240 

T7 

1617.58 

H7  = 

407.17 

PG7  = 

•116.024 

PK 

= 

3.240 

T8 

1617.38 

Ufa-  = 

407.17 

BLiNiZ  = 

0. 

V9 

= 

2340.60 

TS9 

1195.96 

HS9 

294 .36 

!:G»i 

116.024 

?24 

= 

0. 

T24 

0. 

H24  = 

0. 

1*26- 

= 

6. 

T26 

0. 

■H26 

0. 

P2T 

= 

0. 

T27 

0. 

H27  = 

0. 

::g27  = 

-0. 

P2B 

= 

0. 

T28  = 

0. 

H28  = 

6. 

;;G2B  = 

-0. 

V29 

= 

0". 

TS29  = 

0. 

I-S29  = 

0. 

F  Art  41 

= 

0.01587 

FAR51  = 

0i01587 

FaR 3 6  = 

0.01587 

FAR? 

= 

0.01587 

FAR  6  = 

0.0) 387 

FA!;  2  7  =• 

-0.00000 

MV 

= 

17360.2 

HV7 

-0.0 

iiV27  = 

-0.0 

cv. 

= 

0.96500 

V  9 

2340.60 

V29  = 

II. 

FN/i'A  = 

73.902 

THi»9  = 

73.902 

VMi-29  = 

-0. 

t  TAP  = 

0. 

i;  TAT  Hi-  = 

0. 

cT.mi  “ 

0. 

sfci;  = 

0.77283 

FG 

F49R.8 

F 1"  ~ 

8490.  r. 

SFC/SFCB  =  0. 99307 

F.'/Fi-M.  = 

o.998»9 

THIS  PkOGRAI  -AS  DEVELOPcD  liY  r UTILITY  AlkCP.ArT»  UMI-C. 
COiiPlMENTS  liRAUCr.  TUH-.-I'-E  F»-GT(‘E  UiviSIn,. 

M.S.  AIK  FORCE  aFIMi  PROPULSION  LAP-  P.ATOkY 


AFAPL-TR-68-88 


DESIGN  DERIVATIVE  -  TURBOJET  -  SINGLE-rSPOUL  (NO  A/B) 

BASE  POINT  -  VARYING  PRC  BY-  2.0  PERCENT  (DELTA  =  0.250) 


ALTP  = 

0. 

AM 

0. 

VA 

0. 

DELTO  = 

0. 

ETARs  = 

1.00000 

CS 

1116.45 

•HPEXT 

= 

0. 

LCSL 

8 

0. 

HCSL 

8 

0. 

PCBLOW= 

0. 

PCBLOB= 

0. 

PCBLNZ 

.8 

0. 

PCBLC 

8 

0.01000 

PCBLT4= 

0.01000 

PCBLHP 

'8 

0. 

PCBLLP 

8 

0. 

PROA, 

8 

12.250 

BPR 

8 

0. 

VIA  ENG 

8 

115.00 

PRFT 

s 

1.0000 

ETAFT 

8 

1.00000 

VIA  24 

“ 

0. 

HA26 

8 

-0. 

PRFH 

8 

1.0000 

ETAFH ' 

'  = 

1.00000 

U  A  2 1 

8 

115.000 

BLLCSL 

,8 

0. 

PRLP 

= 

1.0000 

ETALP 

= 

1.00000 

WA22 

8 

115.000 

iBLHCSL 

,8 

0. 

PRC 

8 

12.2500 

ETAC 

= 

0.87000 

HA  3 

= 

113.850 

DPD 

8 

0. 

DPFH 

= 

0. 

DPC 

8 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

8 

l.oqo 

T1 

8 

518.67 

HI 

= 

123.92 

P2 

= 

1.000 

T2 

= 

518.67 

H2 

8 

123.92 

P21H 

= 

1.000 

T21 

8 

518.67 

H21 

= 

123.92 

P21L 

8 

1.000 

P22L 

8 

■1.000. 

T22 

8 

518.67 

H22 

= 

123.92 

BLOK 

8 

0  • 

P22 

8 

1.000 

BLUB 

8 

0. 

P3 

8 

12.250 

T3 

= 

1129.11 

H3 

,8 

273.23 

bLC 

8 

1.150 

P4 

8 

12.005 

T4 

8 

2160.00 

H4 

= 

560.35 

WG4 

8 

115.697 

DPB 

8 

0.0200 

ETAB 

8 

0.98000 

FAR4 

8 

0.01622 

W  F  4 

8 

1 .B468 

P41 

8 

12.005 

T41 

8 

2150.58 

H41 

= 

557.55 

BLT  4 

8 

1.150 

P5 

8 

3.256 

T5 

8 

162,9.6.7 

H5 

= 

410.57 

WG41 

8 

116. 847 

PRTH 

8 

3. 6875 

ETATH 

8 

0.89000 

DPT 

= 

0. 

P51 

8 

3.256 

T51 

8 

1629.67 

H51 

= 

410.57 

BI.HP 

= 

0. 

P55 

8 

3.256 

T55 

= 

1629.67 

H55 

= 

410.57 

WG51 

8 

116.847 

PRTL 

•8 

0.9998 

ETATL 

•8 

1.00000 

DPE 

8 

0.01000 

P56 

-  = 

3.256 

T56 

8 

1629.67 

H56 

= 

410.57 

BLLP 

= 

0. 

P6 

= 

3.224 

T6 

8 

1629.67 

H6 

= 

410.57 

HG56 

8 

116.847 

P7 

= 

3.224 

T7 

8 

1629.67 

H7 

= 

410.57 

'•IG7 

8 

1,16.847 

P8 

= 

3.224 

T8 

8 

1629.67 

H8 

8 

410.57 

BLfclOZ 

= 

0. 

V9 

8 

2345.19 

TS9 

8 

1207.14 

HS9 

8 

297.33 

VJG8 

= 

116.847 

P24 

8 

0. 

T24 

8 

0. 

H24 

8 

0. 

P26 

8 

0. 

T26 

8 

0. 

H26 

8 

0. 

P27 

= 

0. 

T27 

8 

0. 

H27 

8 

0. 

WG27 

8 

-0. 

P28 

8 

0. 

T28 

8 

0. 

H28 

8 

0. 

UG28 

= 

-0. 

V29 

= 

0. 

TS29 

= 

0. 

HS29 

8 

0. 

FAR41 

8 

0.01606 

FAR51 

8 

0.01606 

FAR56 

S 

0.01606 

FAR7 

= 

0.01606 

FAR8 

8 

0.01606 

FAR27 

8- 

-0.00000 

HV 

8 

17360.2 

HV7 

8 

-0.0 

HV27 

8 

-0.0 

CV 

0^98500 

V9 

8 

2345.19 

V29 

8 

0. 

FN/k'A  = 

74.061 

THG9  = 

74.061 

THG29  = 

-0. 

ETAP  = 

0. 

ETATHM= 

0. 

ETAO  = 

0. 

SFCU  = 

0.78060 

FG 

8517. 

0 

FN  = 

8517.0 

SFC/SFCB  =  1.00507  FN/FNB-  =  1.00104 

THIS  PROGRAM  HAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  Ur'lNC. 
COMPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 
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AFAPL-TR-68-88 


DESIGN  DERIVATIVE  -  TURBOJET  r  SINGLE-SPOOL  (NO  A/?i ) 

SASH  POINT  -  VARYING' CV  BY  +  1.5  PERCENT  (DELTA  =  0.015) 


ALTP  = 

.0 

• 

Am  = 

0. 

VA 

0. 

DELTO  = 

0. 

ETAR  = 

1.00000 

CS 

1116.45 

HP EXT  = 

0. 

LCSL 

= 

0. 

HCSL 

= 

0. 

PCBLOW= 

0. 

PCBLOB 

= 

0. 

PCBLiMZ 

- 

0. 

PCBLC  = 

0.01000 

PC5LT4 

= 

0.01000 

PCBLHP 

= 

0. 

PCBLLP=  0. 

PROA  = 

12.500 

BPR 

25 

0.. 

HA  ENG- 

= 

115.00 

PRFT  = 

1.0000 

ETAFT 

= 

1.00000 

HA  24 

= 

0. 

HA  2 6  =  -0. 

PRFH  = 

1 . 001)0 

ETAFH 

1.00000 

WA21 

= 

1 1 5 i 000 

BLLCSL=  0. 

PRLP  = 

l.OOi  0 

E7ALP 

= 

1.00000 

HA  2  2 

= 

115.000 

6LHCSL-  0. 

PRC  = 

12.5000 

ETAC 

= 

0.87000 

HA  3 

= 

113.850 

OPD  = 

0. 

DPFH 

S 

o.. 

DPC 

= 

o. 

PRESSURES  IN  ATMOSPHERES 

PI 

1.000 

T1 

= 

518.67 

HI 

= 

123.92 

P2 

1.000 

T2 

= 

518.67 

H2 

= 

123.92 

P21H  = 

i.ooo 

T21 

= 

518.67 

H21 

= 

123.92 

P21L  = 

1.000 

P22L  = 

i.ooo 

T22 

= 

518.67 

H22 

= 

123.92 

BLOW  =  0. 

P.22 

1.000 

BLUB  =  0. 

P31 

12.500 

T3 

= 

1135.75 

H3 

= 

274.91 

BLC  =  1.150 

P4  = 

12.250 

T4 

2160.00 

H4 

= 

560.29 

HG4  =  115.686 

DPS  = 

0.0200 

ETAB 

= 

0.98000 

FAR4 

= 

0.01612 

HF4  =  1.8355 

P41 

12.250 

T41 

= 

2150.64 

H41 

= 

557.48 

BLT4  =  1.150 

P5 

3.264 

T5 

= 

1623.58 

H5 

= 

408.86 

WG41  =  116.836 

PRTH  = 

3.7526 

ETATH 

0.89000 

DPT 

= 

0. 

P51 

3.264 

T51 

= 

1623.58 

H.5 1 

= 

408.86 

BLHP  =  0. 

P55 

3v265 

T55 

= 

1623.58 

H55 

= 

408.86 

KG 51  =  116.836 

PRTL  = 

0;9998 

ETATL 

= 

1.00000 

OPE 

= 

0.01000 

P56 

3.265 

T56 

s 

1623.58 

H56 

= 

408.86 

BLLP  =  0. 

P6 

3.232 

T6 

= 

1623.58 

H6 

= 

408.86 

NG56  =  *16.836 

P7 

3.232 

T7 

1623.58 

H7 

= 

408.86 

WG7  =  116.836 

P8 

3.232 

T8 

= 

1623.58 

H8 

= 

408.86 

BLNOZ  =  0. 

V9 

2378.65 

TS9 

,TZ 

1201.48 

HS9 

=  ' 

295.82 

UG8  =  116.836 

P24 

0. 

T24 

0. 

H24 

= 

0. 

P26 

0. 

T26 

= 

0. 

H26 

= 

0. 

P27 

0. 

T27 

= 

0. 

H27 

= 

0. 

UG27  =  -0. 

P2B 

0. 

T28 

= 

0. 

H28 

•  = 

0. 

HG28  =  -0. 

V29 

0. 

TS29 

= 

0. 

HS29 

= 

0. 

FAR41  = 

0.01596 

FAR51 

= 

0.01596 

FrtR56 

= 

•0.01596 

FART  = 

0.01596 

FAR0 

r 

0V01596 

FAR27 

=  . 

-0.00000 

HV 

17360.2 

HV7 

= 

-0.0 

HV27 

= 

-0.0 

C  V 

1.00000 

V9 

= 

2378  i  65. 

V29 

= 

0. 

FN/WA  = 

75.111 

THG9  = 

75.  H 

1 

THG29  = 

-0. 

5TAP  = 

0. 

ETATHH= 

0. 

ETAO  = 

0. 

SFCIJ  = 

0.76501 

FG 

8637. 

7 

FM  = 

8637.7 

SFC/SFCB  =  0.98500 

FM/FNR  = 

>1.01523 

THIS  PROGRAM  WAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UN INC. 
COMPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 
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AFAPL-TR-68-M 


DESIGN  DERIVATIVE  -  TURBOJET  -  SINGLE-SPOOL  (NO  A /B) 

BASE  POINT  -  VARYING  T4  BY  +  4.6  PERCENT  (DELTA  =100.000) 


ALTP  = 

0. 

Alt  = 

0. 

VA 

0. 

OELTO  = 

0. 

ETAft  = 

1.00000 

CS  = 

1116.45 

HPEXT 

=  0. 

LCSL 

S 

0. 

HCSL 

s 

0. 

PCBLG!!=  0. 

PCBLfJB  = 

0. 

PCBLfvZ 

.= 

0. 

PCBLC 

=  O.OiOOO 

PCBLT4= 

0.01000 

PCGLHP 

= 

0. 

PCBLLP= 

0. 

PROA 

=  12. SCO 

BPfl 

= 

0. 

WAENG 

115.00 

PRFT 

=  1.0000 

ETAFT 

— 

1  .00000 

WA24 

~ 

6. 

UA26  = 

-0. 

PRFH 

=  1.0000 

ETAFH 

1.00000 

DA21 

= 

115.000 

BLLCS  l.= 

0. 

PRLP 

=  1.0000 

ETALP 

= 

l  .ooooo 

HA  22 

= 

115.000 

BLHCSL= 

6. 

PRC 

=  12.5000 

ETaC 

= 

0.87000 

WAS 

113.850 

DPI) 

=  0. 

OPFH 

= 

0. 

DPC 

‘SB 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

=  1.000 

T1 

= 

516.67 

HI 

= 

123.92 

P2 

=  1.000 

T2 

518.67 

H2- 

123.92 

P21H 

=  1.000 

T21 

= 

518.67 

H21 

= 

123.92 

P21L 

=  1.000 

P22L 

=  1.000 

T22 

= 

316.67 

H22 

= 

123.92 

BLOW  = 

0. 

P22 

A  1.000 

BLUB  = 

0. 

PB 

=  12. SOO 

T3 

= 

1135.75 

H3 

= 

274.91 

RLC 

1.150 

P4 

=  12.250 

T4 

- 

2260.00 

H4 

= 

590.53 

UG4  = 

115.883 

DP8 

-  0.0200 

ETAS 

= 

0.98000 

FAR4 

= 

0.01786 

IIF4  = 

2.0333 

P41 

=  12.250 

T41 

= 

2249.79 

H41 

- 

587.42 

BLT4  = 

1.150 

P5 

=  3.512 

T5 

1729.95 

H3 

= 

439.05 

DG41  = 

117.033 

PRTH 

=  3.4878 

ETATH 

0.39000 

DPT 

= 

0. 

P51 

=  3.512 

T51 

= 

172‘i.95 

H51 

= 

439.05 

it  LHP  = 

0. 

P55 

=  3.513 

T55 

= 

1729.96 

H53 

439.05 

liGSl  = 

117.033 

PRTL 

=  0.9990 

ETATL 

= 

1.00000 

DPE 

= 

0.01000 

P56 

=  3.513 

T56 

= 

1729.96 

fi56 

= 

439.05 

I- LLP  = 

0. 

P6 

=  3.4.78 

T6 

= 

1729.96 

H6 

= 

4 3 9.0 5 

WG56  = 

117.033 

P7 

=  3.478 

T7 

= 

1729.96 

H7 

= 

439 . 05 

UG7  = 

117.033 

PB 

=  3.478 

T8 

1729.96 

Hb 

= 

439.05 

bi.NOZ  = 

0  • 

V9 

=  2484.42 

TS9 

= 

1261.29 

HS9 

= 

311.96 

’-.GO  = 

117.033 

P24 

=  0. 

T.24 

= 

0. 

H24 

0. 

P26 

=  0. 

T26 

= 

0. 

H26 

= 

0  • 

P27 

=  0. 

T27 

= 

0. 

H27 

= 

0. 

HG27  = 

-0. 

P28 

=  u. 

T28 

= 

0. 

H28 

=. 

0. 

W628  = 

-0. 

V29 

=  Q. 

TS29 

= 

0. 

HS29 

= 

0. 

FARM 

=  0.01768 

FAR,  51 

0.01768 

FAR56 

0 .01768 

FAK7 

=  0.01763 

pars 

= 

0.01768 

FAR27 

=- 

-0.00000 

HV 

=  17280.5 

t  IV  V 

= 

-0.0 

WV27 

= 

-0.0 

XV 

=  0.98500 

V9 

= 

2484.42 

V29 

= 

0. 

Fi-I/WA  = 

78.5 

fc3 

THG9  = 

78.583 

THG29  = 

-0. 

ETAP  = 

0. 

et /.th.-= 

0. 

ETAU  = 

0. 

SFCIL  = 

0.80996 

pH 

9U37  • 

1 

F.- 

9037.1 

SFC/SFCB  =  I.' 

04288 

FN/FNB  = 

1  .06217 

THIS  PROGRAM  '.AS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UNIRC. 
COMPONENTS  BRANCH  TURBINE  Ki’GIi-E  DIVISION 
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AFAPL-TR-68-8S 


DESIGN  DERIVATIVE  -  <TUR80JET  -  SINGLE-SPOOL  (HD  A /&). 

BASE  PUINT  -  VARYING  T4  BY  -  4.6  PERCENT  (DELTA  =100.000) 


ALTP  = 

0. 

AM  = 

0. 

VA 

0. 

OELTO  = 

0. 

ETAP.  = 

1.00000 

CS 

1116.45 

HPEXT 

=  0. 

LCSL  = 

0. 

HCSL 

= 

q. 

PC8L0I 

!=  0. 

RCBLOB= 

0. 

PCBLN2 

= 

0. 

PC3LC 

=  0.01000 

PCBLT4= 

0.01000 

PCBLHP 

Oi 

PCBLLP= 

0. 

PROA 

=  12.500 

BPR 

0. 

i.'AENG 

= 

115.00 

PRFT 

=  i.oooo 

ETA FT  = 

1.00000 

K'A24 

s: 

0. 

'JA26  = 

-0. 

PRFH 

=  1.0000 

ETAFH  = 

1  .00000 

KA21 

= 

1)5.000 

RLLCSL= 

0. 

PP.LP 

=  1.0000 

ETALP  = 

1.00000 

V/A22 

= 

115.000 

BLHCSL= 

0. 

PRC 

=  12.5000 

ETAC  = 

0.87000 

HA3 

= 

113.850 

DPP 

=  0. 

DPFH  = 

0. 

DPC 

= 

0. 

PRESSURES  IN  ATMOSPHERES 

PI 

=  1.000 

T1 

518.67 

HI 

= 

.123.92 

P2 

1.000 

T2 

518.67 

H2 

= 

123.92 

P21H 

=  1.000 

T21 

518.67 

H21 

= 

123.92 

P21L 

=  r.ooo 

R22L 

=  1.000 

T22 

518.67 

H22 

= 

123.92 

8  LOP  = 

ft. 

P22 

=  1.000 

3  LOB  = 

0. 

P3 

=  12.500 

T3 

1135.75 

H3 

= 

274.91 

ii  LC 

1.15ft 

P4 

=  12.250 

T4 

2060.00 

H4 

= 

530.45 

PG4  = 

115.491 

OPB 

=  0.0200 

ETAB  = 

0.98000 

FAR4. 

= 

0.01441 

liF4  = 

1.6411 

P41 

=  12.250 

T41 

2051.49 

H41 

527.93 

BLT4  = 

1.150 

PS 

=  3.007 

T5 

1516.82 

H5 

= 

379.06 

'-■G41  = 

116.641 

PRTH 

=  4.0741 

ETATh  = 

0.89000 

OPT 

= 

0. 

P51 

3.007 

T51 

3.516.82 

H51 

= 

379.06 

BLHP  = 

().. 

P55 

=  3.007 

T55  = 

T516.82 

H55 

= 

379.06 

0G51  = 

116.641 

PRTL 

=  0.9998 

ETATL  = 

1. 00000 

OPE 

ss 

0.01000 

P56 

=  3.007 

T56  = 

1516.82 

K56 

= 

379.06 

BLLP  = 

0. 

P6 

=  2.977 

T  6 

1516.82 

H6 

= 

379.06 

VG56  = 

116.641 

P7 

=  2.977 

T7 

1516.82 

H7 

= 

379.06 

KG  7 

116.641 

P8 

=  2.977 

T8 

1516 i 82 

HR 

=: 

379.06. 

iJLft'dZ  = 

0. 

V9 

=  2192.59 

1S9 

1142.38 

HS9 

= 

280.07 

WG8  = 

116.641 

P24 

r  0. 

T24 

0. 

H24 

= 

0. 

P26 

=  0. 

T2o  = 

0. 

H26 

= 

0. 

P27 

=  0. 

T27 

0. 

H27 

= 

0. 

KG  2  7  = 

-0. 

P28 

=  0. 

T28 

0. 

H.28 

= 

0. 

IJG28  = 

“ft. 

V29 

=  0. 

TS29  = 

0. 

HS29 

= 

0. 

FAR41 

=  0.01427 

FAR51  = 

0.01427 

FAR56 

= 

0.01427 

FAR7 

=  0.01427 

FAR8  = 

0.01427 

FAR27 

=■ 

-0.0000ft 

HV 

=  17438./. 

HV7 

-0.0 

KV27 

= 

-0.0 

CV 

=  0.985/0 

V  9  = 

2192.59 

V29 

0. 

Fn/WA  = 

69.120 

THG9  = 

6<’.  120 

TilG29  = 

-0. 

ETAP  =' 

0. 

ETATHn= 

0. 

FT  AD  = 

0. 

SFCU  = 

0.74323 

FG 

7948. 

,8 

FN 

7948.8 

SFC/SFC8  =  0.95695  FM/FHB  =  0.93426 


i  . 


( 


!  » 
*  i 


! 
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AFAPL-TR-68-88 


SDATA 

SINPUT  ALTP=0.0,AM=0.0,PRES=14.696,WA£NG=i20„,CV=0.985, 
PRLP=3.0,PRC=4.0,£TALP=0.83,ETAC=0.81,ETATH=0.88t£TATL=0.89, 
T4=2000,  ,DPE--0.02fETAB=0«97,PCBLOH=0.01,PCBLC=0.0075, 
0PB=0.04,PCBLT4=0.0075,ITITLE=1S 

TURBOJET  -  TWO-SPOOL 

$  INPUT  T4=2050.,T7=3250.,ETABAB=0.87,DPBAB=0.095,IAFTBN=1,ITITLE=1$ 
TURBOJET  -  TWO-SPOOL  (WITH  A/B) 


SEOF 


AFAPL-TR-68-88 


TURBuJET  -  TUO-SPOGL 


ALTP  = 

0 

Aft  - 

0. 

VA  = 

0. 

DELTO  = 

0. 

ETAR  = 

1.00000 

CS 

1116.45 

HP EXT  = 

0. 

LCSL 

S 

0. 

HCSL 

= 

0. 

PC3LOH= 

0.01000 

PCBLOB 

►  = 

0. 

PCBLftZ 

,= 

0. 

PC5LC  = 

0.00750 

PC5LT4= 

0.00750 

PC3LHP 

'  = 

0. 

PCBLLP- 

0. 

PROA  = 

12.000 

BPR 

= 

0. 

HA  ENG 

= 

120.00 

PRFT  = 

l.OCGO 

ETAFT 

1.00000 

WA24 

s 

0. 

WA26  = 

-6. 

PKFH  = 

1.0000 

ETAFH 

= 

1.00000 

UA21 

= 

120.000 

3LLCSL= 

Oi 

PRLP  = 

3 . 0000 

ETALP 

SS 

0.83000 

UA22 

118.800 

8LHCSL=- 

0. 

PRC 

4.0000 

ETAC 

=  - 

0.81000 

HA  3 

= 

117.909 

DPI) 

0. 

UPFH 

0. 

UPC 

= 

0. 

PRESSURES  IN  LBS/SO  INCH 

PI 

14.696 

71 

518.67 

HI 

s: 

123.92 

P2 

14.696 

T2 

= 

518.67 

H2 

= 

123.92 

P21H  = 

14.696 

721 

518.67 

H21 

=r 

123.92 

P21L  = 

14.696 

P22L  - 

44.088 

T22 

748.82 

H22 

179.28 

BLOW  = 

1.200 

P22 

44.088 

BLOB  = 

0. 

P3 

176.352 

T3 

= 

1182.02 

H3 

286.64 

BLC  = 

0.891 

P4 

169.298 

T4 

= 

2000.00 

H4 

512.41 

WG4  = 

119.424 

DPB 

0.0400 

ETAB 

= 

0.97000 

FAR4 

- 

0.01285 

HF4 

1.5151 

P41  = 

169.298 

T41 

1994.32 

H41 

ss 

510.73 

BLT4  = 

0.891 

P5 

62.783 

75 

= 

1613.52 

H5 

= 

404.73 

IIG41  = 

120.315 

PRTH  = 

2.6965 

ETATH 

0.88000 

DPT 

= 

0. 

P51 

62.783 

T51 

=: 

1613.52 

H51 

= 

404.73 

BLHP  = 

0. 

P55 

34.304 

T55 

1408.84 

H55 

= 

349.51 

HG51  = 

120.315 

PRTL  = 

1.8302 

ETATL 

0.89000 

DPE 

0.02000 

P56  = 

34.304 

T56 

= 

1408.84 

H56 

= 

349.51 

BLLP  = 

0. 

P6 

33.618 

T6 

1408.04 

H6 

as 

349.51 

HG56  = 

120.315 

P7 

33.618 

T7 

= 

1408.84 

H7 

= 

349.51 

HG7 

120i315 

P8 

33.618 

78 

= 

1408.84 

H8 

= 

349.51 

BLNOZ  = 

0. 

V  9 

1867.23 

TS9 

= 

1134.67 

HS9 

= 

277.72 

WG8 

120.315 

P24 

0. 

T24 

s 

0. 

H24 

0. 

P26 

0. 

T26 

= 

0. 

H26 

= 

0. 

P27 

0. 

T27 

= 

0. 

H27 

0. 

WG27  = 

-0. 

P28 

0. 

728 

= 

0. 

H28 

= 

0. 

WG28  = 

-0. 

V  29 

0. 

TS29 

= 

0. 

HS29 

0. 

FAR4I  = 

0.01275 

FAR51 

zz 

0.01275 

FAR56 

— 

0.01275 

FAR7  = 

0.01275 

FAR8 

= 

0.01275 

FAR27 

=  - 

-0.00000 

HV 

17484.7 

HV7 

= 

-0.0 

HV27 

= 

-0.0 

CV 

0.98500 

V9 

1867.23 

V29 

0. 

FN/WA  - 

58.188 

THG9  = 

58.188 

THG29  = 

-0. 

ETA  P  = 

0. 

ETATHM= 

0. 

ETAO  = 

o.  • 

SFCO  = 

0.78114 

FG 

6982. 

,5 

FN  = 

6982.5 

THIS  PROGRAM  WAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UNINC. 
COMPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 

U.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY 


AFAPL-TR-68-88 


TURBOJET  -  TWO- SPOOL  {WITH  A/B) 


ALTP  = 

0 

• 

Aw  = 

0. 

V  A 

0. 

DELTO  = 

0. 

ETAR  = 

1.00000 

CS 

1116.45 

HPEXT 

=  0. 

LCSL 

= 

0. 

HCSL 

S 

0. 

PCBLO'.I 

1=  0.01000 

PCBLU-3 

= 

0. 

PCBLNZ 

= 

0. 

PCBLC 

=  0.00750 

PCBLT4 

.= 

0.00750 

PCBLHP 

0. 

PCBLI.P= 

0. 

PROA 

=  12.000 

BPR 

= 

0. 

i.'AENG 

= 

120.00 

PRFT 

=  1.0000 

ETAFT 

s 

1.00000 

'..'A  2  4 

s 

0. 

l!A26  = 

-0. 

PRFH 

=  1.0000 

ETAFH 

1.00000 

t'A21 

= 

120.000 

BLLCSL= 

0. 

PRLP 

=  3.0000 

ETALP 

= 

0 .83000 

HA  2  2 

118.300 

BLHCSL= 

0. 

PRC 

=  4.0000 

ETAC 

S 

O.filOOO 

WA3 

= 

117.909 

OPO 

=  0, 

LIPFK 

s 

0. 

DPC 

= 

0. 

PRESSURES  IN  LBS/SO  INCH 

PI 

=  14.696 

T1 

= 

518.67 

HI 

= 

123.92 

P2 

=  14.696 

T2 

= 

518.67 

H2. 

= 

123.92 

P2IH 

=  14.696 

T21 

= 

518.67 

H21 

123.92 

P21L 

=  14.696 

P22L 

=  44.088 

T22 

- 

748.82 

H22 

= 

179.28 

PLOW  = 

1.200 

P22 

=  44.088 

BLOB  = 

0. 

P3 

=  176.352 

T3 

= 

1182.02 

H3 

= 

286.64 

BLC 

0.891 

P4 

=  169.298 

T4 

= 

2050.00 

H4 

= 

527.14 

WG4  = 

119.524 

OPB 

=  0.0400 

ETA5 

= 

0.97000 

FA  P.4 

= 

0.01370 

NF4  = 

1.6152 

P41 

=  169.298 

T41 

= 

2043.98 

H41 

- 

525.37 

BLT4  = 

0.891 

Pi* 

=  64.625 

T5 

=: 

1665.89 

H5 

= 

419.45 

KG41  = 

120.415 

PP.TH 

=  2.6197 

ETATH 

0.88000 

IJPT 

= 

0.  . 

P51 

=  64.625 

T51 

= 

1665.89 

H51 

419.45 

81.  HP  = 

0. 

P55 

=  36.074 

T55 

= 

1462.92 

H55 

364.28 

UGSl  = 

120.415 

PRTL 

=  1.7915 

ETATL 

= 

0.89000 

DPE 

0.02000 

P56 

=  36.074 

T56 

1462.92 

H56 

= 

364.28 

3  LLP  = 

0. 

P6 

=  35.352 

T6 

= 

1462.92 

H6 

= 

364.28 

WG56  = 

120.415 

P7 

=  31.994 

T7 

= 

3250.00 

H7 

= 

927.36 

l»G7 

124.771 

*  # 

A/B  #  # 

ETABAS 

.= 

0.87000 

DPB/'.b 

= 

0.09500 

WF7 

4.3554 

P8 

=  31.994 

T8 

= 

3249.99 

H8 

= 

927.36 

BLNU7.  = 

0. 

V9 

=  2790.61 

TS9 

= 

2751.32 

HS9 

= 

767.01 

I/G8 

124.771 

P24 

=  0. 

T24 

= 

0. 

H24 

= 

0. 

P26 

=  0. 

T26 

= 

0. 

H26 

= 

0. 

P27 

=  0. 

T27 

= 

0. 

H27 

= 

0. 

NG27  = 

-0. 

P28 

=  0. 

T28 

0. 

H28 

= 

0. 

HG28  = 

-0. 

V29 

=  0. 

TS29 

= 

0. 

HS29 

c 

0. 

FAR41 

=  0.01360 

FAR51 

= 

0.01360 

FAR56 

= 

0.01360 

FAR7 

=  0.05026 

FAR8 

= 

0.05026 

FAR27 

=- 

-0.00000 

HV 

-  17446.2 

HV7 

= 

16444.6 

HV27 

-0.0 

CV 

=  0.98500 

V9 

= 

2790,61 

V  29 

- 

0. 

FKVWA  = 

90.183 

TF.G9  = 

90.183 

THG29  = 

-0. 

ETAP  = 

0. 

ETATHH= 

0. 

ETAt)  = 

0. 

SFCU  = 

1.98617 

PG 

10822. 

,0 

Fi'l  = 

10822.0 

THIS  PKOGKAJi  WAS  DEVcLUPEO  BY  FUTILITY  AIRCRAFT »  UNINC. 
COHPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 

U.S.  AIK  FURCt  AERO  PROPULSIUN  LABORATORY 


A?APL»TB~68-eS 


sdata 

iINPUT  ALTP=25000.,AN=0.75,UELT0=10.,PREi>'=14.696, 
WAENG=100.,8PR=2.0,CV=0.985,DPD=0.01, 

PRFT=2.5,PRC=8.0,ETAFT=0.84,£TAC=0.85,ETATH=0.90,ETATL=0.89, 
T4=2100.,DPT=0.0015,OPE=0.015,ETAB=0.985,BPB=0.02,ITITLE=1S 
TURBOFAN  -  AFT-FAN  (IE,  CF-700  TYPE) 


AFAPL-TR-68-88 


TURBOFAN  -  A  FT- FAN!  (16,  CF-700  TYPE) 

ALTP  =  25000.  AH  =  0.7500  VA  =  77X..26 


OELTO  = 

10. 

DO- 

STAR  = 

1,00000 

CS 

1P28.35 

HPEXT 

3S 

0. 

LCSL 

0. 

HCSL 

zz 

0. 

PCBLQK= 

0. 

PCBLOB= 

0. 

PCELNZ= 

0. 

PCBLC 

= 

0. 

PCBLT4* 

0. 

PC3LhP= 

0. 

PCBLLP= 

0. 

PROA 

= 

8.000 

BPR 

— 

2.000 

WAENG 

= 

100.00 

PRFT 

= 

2.5000 

ETAFT 

= 

0.84000 

WA24 

s 

66*667 

WA26  = 

66.667 

PRFH 

22 

1.0000 

ETAFH 

= 

1.00000 

WA21 

23 

33.333 

BLLCSL= 

0. 

PRI.P 

ss 

1.0000 

ETALP 

1.00000 

WA22 

= 

33.333 

BLHCSL- 

0. 

PRC 

= 

8.0000 

ETAC 

= 

0.85000 

HA  3 

33.333 

DPD 

s 

0.01000 

DPFH 

= 

0. 

DPC 

= 

0. 

PRESSURES  IN  LBS/SO  INCH 

PI 

= 

5.454 

T1 

s 

439.52 

HI 

:= 

104.98 

P2 

= 

7.921 

T2 

c 

489.18 

H2 

= 

116,86 

P21H 

7.921 

T21 

= 

489.17 

H21 

= 

116.86 

P21L 

= 

7.921 

P22L 

= 

7.921 

T22 

= 

489.17 

H22 

=: 

116.86 

BLOU  = 

0. 

P22 

7.921 

BLOB  = 

0. 

P3 

= 

63.367 

T3 

= 

951.68 

H3 

= 

228.91 

BLC 

0. 

P4 

= 

62.100 

T4 

= 

2100.00 

H4 

544.02 

V!G4 

33.923 

DPB 

= 

0.0200 

ETAB 

= 

0.98500 

FAR4 

= 

0.01770 

HF4  = 

0.5900 

P41 

= 

62.100 

T41 

= 

2099.99 

H41 

= 

544.02 

ELT4  = 

0. 

P5 

= 

24.020 

T5 

= 

1711.48 

H5 

433.92 

HG41  = 

33.923 

PRTH 

= 

2.5853 

ETATH 

0.90000 

DPT 

= 

0.00150 

P51 

= 

23.984 

T51 

= 

1711.48 

H51 

= 

433.92 

BLHP  = 

0. 

P55 

= 

10.005 

T55 

= 

1411.21 

H55 

= 

351.83 

WG51  = 

33.923 

PRTL 

= 

2.3973 

ETATL 

= 

0.89000 

OPE 

= 

0.01500 

P56 

= 

10.005 

f  56 

= 

1411.21 

H56 

= 

351.83 

BLLP  = 

0. 

P6 

9.855 

T6 

fix 

1411.21 

H6 

= 

351,83 

WG56  = 

33.923 

P7 

= 

9.855 

T7 

= 

1411,21 

H7 

= 

351.83 

WG7  = 

33.  /23 

P8 

= 

9.855 

T8 

S2 

1411.21 

H8 

= 

351.83 

BLNOZ  = 

0. 

V9 

“ 

1606.62 

TS9 

= 

1210.68 

HS9 

= 

298.68 

WG8 

33.923 

P24 

= 

19.802 

T24 

= 

663.35 

HZ4 

n 

158.63 

P26 

= 

19.604 

T26 

s 

663.35 

H26 

= 

158.63 

P27 

= 

19.604 

T27 

35 

663.35 

H27 

= 

158.63 

WG27  = 

66.667 

P28 

= 

19.604 

T28 

23 

663,35 

H28 

= 

158.63 

WG28  = 

66.667 

V29 

ss 

1538.46 

TS29 

ss 

460.06 

HS29 

109.90 

FAR41 

s 

0.01770 

FAR51 

s 

0.01770 

FAR56 

s: 

0.01770 

FAR7 

= 

0.01770 

FAR8 

= 

0.01770 

FAR27 

= 

0. 

HV 

=: 

17407.3 

HV7 

= 

16444.6 

HV27 

= 

-0.0 

CV 

ss 

0.98500 

V9 

1606.62 

V29 

= 

*.538,46 

FN/WA  = 

24.846 

THG9  = 

16.940 

THG29  = 

31.878 

ETAP  = 

0.66216 

ETATHh= 

0.36181 

ETAO  = 

0.23958 

SFCU  = 

0.85489 

FG 

4881. 

7 

FN 

2484.6 

THIS  PROGRAM  WAS  DEVELOPED  BY  FUTILITY  AIRCRAFT,  UNINC. 
COMPONENTS  BRANCH  TURBINE  ENGINE  DIVISION 

U.S.  AIR  FORCE  AERO  PROPULSION  LABORATORY 


AFAPL-TJM58-88 


SDATA 

SINPUT  ALTP=60000.,AH=2.6,PRES=14.696,WAENG=800.,BPR=1.7, 

CV=0.985,0PU=0.017»0PrH=0.0015,PRFT=2.7,PRFH=2.55, 

PRC=3.1,ETAFT=0.86»ETAFH=0.84,ETAC=0.86,ETATH=0.90,ETATL=0.90, 

T4=2660.,T27=2960.,DPEM).02,ETAB=0.985, 

ETABFD=0,88,PCBLC=0.055,PCBi.T4=0.035,PCBLh:  0.02, 

DPR=0.02,DPBF0=0.06,ITlTLE=l,ir0BURN=l$ 

TUR80FAN  -  DUCT-BURNER 


SEOF 


AFAPL-TR-68-88 


TUKBUFAK  -  UUCT-liUKi'lER 


HPeXT  = 
PCttLUH* 
PCBLC  = 
PKUA  = 

PKFT  = 
PKFH  = 
PKLP  - 
PRC 
OPO 


ALTP  = 

60000. 

An  = 

2.6000 

VA  = 

2517.00 

DcLTO  = 

0. 

ETAR  = 

0.85854 

CS  = 

948.08 

0. 

LCSL  = 

0. 

HCSL  = 

0. 

0. 

PCBLOB- 

0. 

PCGLWZ= 

0. 

0.05500 

PCBLT4= 

0.03500 

PCiLHP= 

0.02000 

PCP*LLP=  0.00000 

7.893 

BPR  = 

1.700 

ViAEHG  = 

800.00 

2.7000 

ETA FT  = 

0.66000 

WA24  = 

503.704 

•:A26  =  503.704 

2.5500 

ETAFH  = 

0.84000 

HA  21  = 

296.296 

bLLCSL=  0. 

1.0000 

FTALP  = 

1.00000 

HA22  = 

296.296 

BLHCSL=  0. 

3.1000 

ETAC  = 

0. R6000 

OA3  = 

280.000 

0.01700 

DPFH  = 

0.00150 

l)PC 

0. 

PRESSURES  IN  LBS/ SC*  H  CH 


PI 

- 

1  .040 

T1 

389.97 

p2 

s 

17.806 

T2 

914.09 

P21H 

= 

45.404 

T21 

1231.60 

P21L 

zi 

45.336 

P22L 

= 

45.336 

T22 

1231.60 

P22 

s: 

45.336 

P3 

~ 

140.542 

T3 

1723.64 

P4 

= 

137.731 

T4 

2660.00 

op;j 

Zz 

0.0200 

ETA.J  = 

0.98300 

P41 

Z2 

137.731 

T41 

2628.87 

P5 

zz 

56.659 

T5 

2184.27 

PkTH 

zz 

2.4309 

ETaTF  = 

0.90000 

P51 

zz 

56.659 

T51  = 

2175.59 

P55 

s 

7.183 

T55 

1393.33 

PkTL 

s 

7.8877 

htatl  = 

0.90000 

P56 

S 

7.183 

T56 

1393.33 

P6 

8 

7.0^0 

T6 

1393.33 

P7 

— 

7.040 

T7 

1393.33 

P8 

7.040 

T8 

1393.33 

V9 

= 

2640.87 

TS9 

035.55 

P24 

- 

48.075 

T24 

1245.51 

P26 

ZZ 

47.258 

T26 

1246.51 

P27 

zz 

44.422 

T27 

2960.00 

*  $ 

U/B  $  * 

ETABFO- 

0.88000 

P2« 

44.422 

T28 

2960.00 

V29 

= 

4982.69 

TS29  = 

1214.59 

FAR41 

= 

0.01518 

FAK51  = 

0.01487 

FAR7 

= 

0.01487 

FAR8  = 

0.01487 

HV 

= 

16950.8 

HV7 

1 6444.6 

CV 

= 

0.98500 

V9 

2640.87 

Frl/l'A 

=  53.289 

THG9 

HTAP 

=  0.68561 

ETaTHi-s 

SFCU 

=  1.74998 

FG 

HI 

93.13 

H2  = 

219.63 

H21 

299.27 

H22  = 

299.27 

nLO*i 

= 

0. 

6  LOO 

= 

0. 

H3  = 

426.84 

B  LC 

= 

16.296 

K4 

706.66 

V-04 

= 

244.407 

FrtR4  = 

0.01574 

i!F4 

4.4067 

H41 

696.68 

ALT  4 

10.370 

M3  = 

366.65 

'..'G41 

= 

294.777 

OPT  = 

0. 

5.926 

H51  = 

563.94 

BLIP 

H55  = 

346.10 

KG  51 

= 

300.703 

OPE  = 

0.02000 

H56  = 

346.10 

I'.LLP 

= 

0.000 

H6 

346 . 10 

UG56 

= 

300.703 

H7 

346.10 

HG7 

= 

300.703 

H8  = 

366.10 

l.LrtUX 

0. 

HS9  = 

202.49 

OGB 

— 

300.703 

H24 

302.83 

H26 

302.63 

H27 

814.75 

UG27 

= 

520.020 

DPBFu  = 

0.06000 

►•F27 

= 

16.3167 

H28 

814.75 

>.G28 

= 

520.020 

HS29  = 

303.55 

FAR56  = 

(;  .01487 

FAR27  = 

0.03239 

HV27  = 

16695.4 

V29  = 

4982.69 

30.832 

TIIG29  = 

100.667 

=  0.37501 

FT  AO  = 

0.39423 

:105215.9 

Frl 

42631 . 

A 

THIS  PKOGKA. 
COMPONENTS  BRANCH 
U.S. 


i  Vi  AS  DEVfcLUPED  BY  FUTILITY  AIRCRAFT »  UMHC. 

TURBI-sfc  ENGINE  01 VI  SI  OK 

AIR  FUkCfc  aeku  prupulsiuw  laboratory 
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AFAPL-TK-6B-88 


SO  AT  A 

$  INPUT  ALTP=S00.,AN=0.95,PRI:S=14.69A,WAEfv0=170.t»PK=l.A, 
CV=0.99,DPU=0.03,PUFT=2.2,PRFH=2.1,PRLP=1.7,PI<C=2.7, 

FT  AFT  =0.86  »ETAFH=0.84  »ETAt.P  =  0.87  t  ETAC=0. 86»  FT  ATI  1=0. 90  t  E  ]'/»TL  =0 .41  > 
T4=2460. ,T?=3200. , T27=3200. ,DPE=0.02, 

ETAB=0.98  jETABAB=0. 86  *ETABFO=O.HR»  PC8LC=0. 04 »PCbLT4=U.02a  fPCoLHP =!».(•  1 
0PB=0.02t0P3AB=0.065f  0PI5FI)=U.08 , 1  TITL£=1 , 1/\FTBw=l ,  Ii)«UK.'=i* 

TURBUFAf'l  -  A/B  AiMD  IHICT-oUFNEIt 


AFAPL-TRH58-88 


TIJF.SOFAF  -  -A/il  AWO  DUCT 

-liUIU-EK 

ALTP  = 

500.  At-.  = 

0.9500 

VA 

1058.80 

RELTO  = 

0.  STAR  = 

1.00000 

CS- 

i 114. 53 

bPEXT 

.= 

0. 

LCSL  =  0. 

HCSL 

s 

0. 

P.CiSLOl 

is 

0. 

PCBLU&S  6. 

PCbLmZ 

= 

0. 

FCISLC 

= 

0.06000 

PCHLT4-  -0*02400' 

PCDL'HP 

s 

0. 01500* 

PC  LLPs 

0  ..00100 

FRO  A 

~ 

13.209 

DPR  =  ' 1.600 

UASriG 

= 

170.00 

PR  FT 

= 

2.2000 

ETA FT  =  0.86000 

VIA  24 

=: 

104.615 

-WA26  ? 

104.615 

PRF'rl 

sr 
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